﻿F WATTENBERG PROGRAMARE PC Epi PROGRAMARE PENTRU PC Apple Apple II are nevoie de tine de proiecte de programare pentru Apple II FRANK WATTENBERG UNIVERSITATEA DIN MASSACHUSETTS Prenfice-Hall, !nc , Englewood Cliffs, New Jersey F WATTENBERG PROGRAMARE PC Apple Traducere din engleză V I Gurevich, candidat la științe tehnice, V P Rukovchuk, I Ya Steintsaig editat de cand tehnolog, științe V K Pototsky Moscova "Mir" BBC U UDC Wattenberg F У Programare pentru un computer personal Apple: Per din engleză - M : Mir, - p , ill SBN - - - (rusă) Cartea omului de știință american este un manual pentru cei care studiază bazele informaticii, tehnologiei computerelor și stăpânesc metodele de compilare și depanare a programelor de lucru în mod interactiv pe un computer personal care utilizează limbajul BASIC Sunt dați de algoritmi de rezolvare a problemelor matematice și fizice, pentru care au fost compilate programe Pentru utilizatorii de calculatoare personale - de la liceeni la specialisti cu studii medii si superioare " - l У ( )- ' ' h' BBC Colegiul editorial al literaturii, Informatica si robotica SBN - - - (rusă) (c) de Prentice-Hall, Inc ISBN - - - (engleză) (c) traducere în rusă, cu modificări și completări, Mir, TRADUCERE PREFAȚA EDITORULUI Dacă ultimul sfert de secol este numit pe bună dreptate era tehnologiei de calcul, atunci anii sunt deceniul distribuției în masă a EWhCh personale (calculatoare pentru uz individual) Informatica și tehnologia calculatoarelor devin acum părți integrante ale învățământului secundar general În prezent, este greu de imaginat un domeniu al științei sau tehnologiei, o ramură a economiei naționale sau un sector de servicii, în care tehnologia informatică să nu fie folosită într-o formă sau alta Calculatoarele pătrund rapid în viața noastră de zi cu zi, necesitând nu numai de la un inginer și tehnician, ci și de la un elev și un școlar să posede abilități de programare Nu există nicio îndoială că un manual bun, bazat pe fundamentul educației generale și scris fascinant, poate ajuta semnificativ la depășirea barierei care apare adesea între un potențial utilizator al unui EVL personal, fizică, discipline tehnice, economie, organizarea producției etc ) Cartea oferită cititorului poate fi pusă tocmai pe seama unor asemenea beneficii Orientat către un programator începător și un cititor tânăr, poate captiva nu numai prin claritatea și simplitatea prezentării tehnicilor de algoritmizare și programare de conținut tipic, adesea originale în ceea ce privește formularea sarcinilor în disciplinele educaționale generale (fizică, matematică, și chiar biologie), dar și cu o propunere de stăpânire a procesului de dezvoltare, depanare și utilizare a programelor care implementează așa-numitele jocuri electronice pe computer (cu afișarea unui "teren de joc" pe ecran și utilizarea de o tastatură de calculator sau un panou special de control al jocului) Conținutul cărții este axat pe utilizarea computerului personal Apple II și a limbajului de programare BASIC (numit APPLESOFT II BASIC) Se presupune că cititorul este familiarizat cu principiile de bază ale algoritmizării sarcinilor de rezolvat pe calculator și tehnicile de programare într-un limbaj de nivel înalt precum BASIC Pentru a facilita cititorului să stăpânească materialul prezentat și să se familiarizeze cu elementele de bază și unele caracteristici ale dialectului limbii BASIC (APPLESOFT II BASIC), traducerea în limba rusă a cărții este completată cu o descriere informală a elementelor de bază ale acestei limbi Cartea are un caracter practic: trecerea de la sarcină la sarcină (întreaga prezentare este construită sub formă de sarcini care se succed una după alta), cititorul, împreună cu autorul, parcurge de fiecare dată întreg "calea" dezvoltării unui program de la analiza sarcinii în scopul formalizării acesteia până la compilarea unui algoritm de rezolvare pe computer, de la schema algoritmului până la scrierea ulterioară a acestuia în limbajul de programare, adică până la formarea finală a textului programului autorul nu caută să impună cititorului o soluție gata făcută În primul rând, doar cele mai complexe fragmente ale algoritmului sunt scrise în BASIC și se propune să scrie în mod independent textul întregului program Și numai în acele cazuri în care cititorul este Prefața editorului de traduceri este peste puterile sale, i se oferă posibilitatea de a "privi" în anexă și de a citi textul integral al programului finalizat Întrebarea oportunității stăpânirii tehnologiei de programare în limbajul de calculator BASIC de tip Apple II și universalitatea cunoștințelor dobândite în aceasta ar trebui recunoscute ca legitime Răspunsul la această întrebare este afirmativ, deoarece o anumită standardizare atât a hardware-ului, cât și a software-ului este inerentă tehnologiei computerizate moderne Adesea, după modificări relativ mici ale programului, utilizatorul EV?L reușește să se "mute" dintr-un "mediu de calcul" în altul, păstrând practic neschimbate logica de funcționare și limbajul de programare al programului dezvoltat (mai ales dacă acesta este limbajul BASIC - limbajul unui programator începător) Cele de mai sus dă motive să sperăm că cartea, care se concentrează pe unul dintre cele mai populare modele de computere personale din străinătate și pe cel mai popular limbaj de programare în rândul programatorilor începători, se va dovedi a fi un manual oportun și necesar pentru numeroși utilizatori de computere în țara noastră și mai ales pentru programatorii începători, liceeni și universitari Traducerea a fost făcută de I Ya tehnolog, științe V I Gurevich (cap , ) și kaid Tehn , Științe V P Rukavchuk (cap , ) V K Pototsky Această carte este dedicată soției mele Julia și copiilor mei Marty și Alina Lucrarea cărții a fost în mare parte de natură familială: toate trei au citit părți ale manuscrisului și au făcut multe sugestii pentru îmbunătățirea conținutului acestuia Marty merită mulțumiri speciale: nu numai că a lucrat la întregul volum al cărții (unele probleme au fost înlăturate la formarea versiunii finale a manuscrisului), dar a fost responsabil și pentru materialul prezentat în problemele și Julia a preluat și a participat la lucrul la toate secțiunile cărții și a făcut o mulțime de corecții textului, îmbunătățind semnificativ lizibilitatea acestuia În plus, ea a tipărit două versiuni ale manuscrisului De aceea, cu un profund sentiment de recunoștință față de ei pentru ajutorul acordat și pentru că lucrarea la manuscrisul cărții nu numai că este demnă de atenție, ci și plăcută și incitantă, dedic această carte Julie n, Marty și Aline CUVÂNT ÎNAINTE Calculatoarele ne prezic vremea Cu ajutorul lor, avioanele sunt pilotate și se percep taxe De asemenea, ne distrează cu jocuri, monitorizează starea depozitelor bancare și ne frământă cu mementouri privind achizițiile efectuate pe credit În ciuda acceptării generale a acestor afirmații, toate sunt false! Mașinile de calcul efectuează aceste operațiuni nu mai mult decât ciocanele bat mobilierul, iar pensulele creează pânze - capodopere ale picturii Calculatoarele sunt instrumente extrem de rapide și de înaltă performanță, dar sunt complet neajutorate fără ca oamenii să-și programeze munca Puteți cumpăra software pentru un computer personal care vă permite să realizați marile capabilități ale mașinii, dar pentru a le folosi cu adevărat, trebuie să scrieți singur un program care să facă computerul să facă exact ceea ce este necesar Această carte vă spune cum să scrieți programe de calculator Cartea este destinată celor care s-au familiarizat deja cu ghidul de programare pe un computer Apple II folosind software-ul Applesoft, care cunosc elementele de bază ale algoritmizării și programării și care ar dori să folosească toată această "bogăție" pentru a compune noi și adesea programe uimitoare Această carte discută soluția a de probleme X) programabile pentru implementare pe computer: unele sunt destul de serioase, altele sunt jocuri; ambele pe care cititorul le va găsi interesante și chiar fascinante Chiar și o privire scurtă asupra listei de titluri ale acestor sarcini din cuprinsul poate oferi o idee despre diversitatea problemelor luate în considerare Fiecare problemă este analizată în toate detaliile - de la formularea scopului soluției până la scrierea operatorilor individuali ai programului în curs de dezvoltare pentru computer Toate tehnicile extraordinare de programare sunt discutate cu atenție Rezultatele rezolvării unei probleme sunt adesea prezentate nu de una, ci de mai multe variante ale unui program complet adecvat pentru execuție pe un computer de tip Apple (Apple He, Apple + cu K RAM sau Apple II când se utilizează instrumente software Applesoft) Pentru majoritatea programelor, cantitatea acceptabilă de RAM este de K O sarcină retrasă, - Notă, ed THEN PRINT "BUTON APASAT" IF PACK (- ) ATUNCI : REM VERIFICATI DACA ESTE APASAT UN BUTON CT = CT + : REM DACĂ NU, MĂRȘTEȘTE UNITĂȚI CONTATOR REPETARE GOTO DAR: REM ȘI REPEȚI BUCLA PRINT "CONTATOR = "; ST: REM Așteptați puțin după pornirea programului, apoi apăsați butonul de pe panoul de control al jocului Repetați acești pași de mai multe ori pentru a vă obișnui să lucrați cu o astfel de telecomandă Jocul "Mai repede, Max!" ar fi mai distractiv dacă mesajul cu timpul de reacție al jucătorului ar fi dat în secunde Înainte de a face modificările corespunzătoare în program, ar trebui să experimentați cu computerul pe care îl aveți la dispoziție și să determinați cât timp durează finalizarea ciclului de așteptare descris mai sus pentru apăsarea butonului Capitolul panoul de control al jocului Viteza ciclului poate fi determinată, de exemplu, așteptând s de la începutul programului înainte de a apăsa butonul de pe telecomandă Numărul care apare pe ecran corespunde numărului de repetări ale ciclului de așteptare în de secunde Pe computerul său, autorul a primit un număr de aproximativ , adică ciclul a fost executat de aproximativ / = ori/s Împărțiți valoarea variabilei CT la pentru a obține timpul de reacție al jucătorului în secunde, așa cum se face în linia din procedura de mai jos ST = : REM ST - DACĂ CONTOR CYCLE REPEAT (- ) > ATUNCI : REM VERIFICAȚI DACA ESTE APĂSAT BUTONUL CT = CT + : REM DACĂ NU, MĂRȘTEȘTE UNITĂȚI CONTATOR REPETARE GOTO ON: REM ȘI REPEȚI BUCLA SEC - CT / : REM DACĂ DA, TIMP DE REACȚIE A JUCĂTORULUI (ÎN SECONDE) PRINT "AȚI NEVOIE";SEC;" SEC" Desigur, pe computerul de care dispune cititorul, în loc de , se va obține o altă valoare Acum sunt cunoscute toate procedurile necesare și puteți începe să scrieți versiunea originală a programului ^Faster, Max! Schemele algoritmice ale procedurilor individuale sunt combinate într-o singură schemă în fig Cititorul este sfătuit să încerce să compileze singur versiunea inițială a programului Mai jos este textul unui astfel de program compilat de autor La sfârșitul acestei secțiuni, după luarea în considerare a versiunii programului folosind tastatura computerului, sunt formulate o serie de propuneri pentru îmbunătățirea acestui program - Mai repede, Max! (O variantă a programului folosind panoul de control al jocului) K = K: REM K - DETERMINĂ DURATA ciclului de întârziere PENTRU DLY = CURENT: CICLU DE ÎNTÂRZIERE REM URMĂTORUL DLY R = RND ( ): REM OBȚINEȚI UN NUMĂR ALEATORIU DACĂ R ATUNCI : REM CHECK, ESTE APASAT BUTONUL DE CONTROL JOC ? CT = CT + : REM DACĂ NU, CONȚINUTUL CT ESTE MĂRȘIT CU UNA GOTO : REM ȘI STAREA BUTONULUI ESTE VERIFICAT DIN NOU SEC = CT / : REM DACĂ DA, atunci ORA ESTE DEFINITĂ REACȚIILE JUCĂTORILOR (ÎN SECONDE) PRINT "AȚI NEVOIE ";SEC;" SEC" Jocuri interactive de programare start Orez Capitolul t Opțiune de program folosind tastatura computerului Pentru a introduce informații de la tastatura computerului, software-ul Applesoft oferă posibilitatea utilizării operatorilor GET și INPUT în limbajul BASIC Când programați multe jocuri, inclusiv jocul "Quick it, Max!", instrucțiunea GET este extrem de utilă Execuția unei instrucțiuni de forma GET X$ are loc în trei etape: Dacă niciuna dintre taste nu a fost apăsată, execuția programului se oprește, iar pe ecran apare un cursor pâlpâit, simbolizând mașina care așteaptă intrarea de la tastatură Când este apăsată o tastă, valoarea simbolului corespunzător este atribuită variabilei După efectuarea operațiunilor de la pasul , tastatura este pregătită pentru introducerea următorului caracter Pentru programul dezvoltat "Quick it, Max!" oprirea execuției sale pentru a aștepta intrarea de la tastatură nu este necesară Programul nu trebuie întrerupt, deoarece aceasta va întrerupe procedura de numărare între momentul în care pe ecran apare mesajul "FASTER, MAX!" și o apăsare a tastei În timpul execuției programului, o anumită parte a hardware-ului mașinii interogează periodic starea controlerelor de joc și a tastelor de la tastatură pentru a afla dacă au fost apăsate butoane ale controlerelor sau tastelor Conectarea hardware-ului specificat cu programul în curs de executare se realizează prin anumite zone ale memoriei principale a computerului, unde acest hardware plasează mesajele corespunzătoare Informațiile despre starea tastaturii sunt plasate în octetul RAM cu adresa - De îndată ce oricare dintre taste este apăsată, în zona de memorie specificată este scris un număr mai mare de Folosind funcția PEEK, puteți "citește" conținutul oricărei zone a memoriei RAM De exemplu, funcția PEEK (- ) ' oferă acces la conținutul octetului RAM cu adresa - Prin urmare, folosind operatorul de forma IF PEEK (- ) > THEN puteți verifica dacă vreuna dintre tastele de la tastatură a fost apăsată Folosind instrucțiunea din rândul din program GET X$, puteți seta variabila la valoarea caracterului corespunzătoare tastei apăsate și puteți readuce tastatura într-o stare de pregătire pentru introducerea următorului caracter Jocuri interactive de programare Puteți folosi următorul mic program pentru a demonstra cum funcționează operatorii PEEK (- ) și GET DACĂ PURĂ (- ) > ATUNCI : REM VERIFICAȚI DACĂ A FOST APĂSAT ORICE TASPE ON CT = CT + : REM DACĂ NU, CONTORUL REPETĂRII BUCLEI MULTE CU ONE GOTO OBȚINEȚI X$: REM DACĂ DA, ATRIBUIȚI VALOAREA CARACTERULUI INTRODAT UNEI VARIABILE ȘI PREGĂȚIȚI TASTATURA PENTRU A INTRODUCE URMĂTORUL CARACTER PRINT "CT = ";CT;" TASTE APĂSATĂ = ";X$ CT= : REM CLEAR REPEAT NUMĂRĂTOR NUMĂR GOTO Apăsarea diferitelor taste de pe tastatura computerului după pornirea programului duce la apariția pe ecranul de afișare a liniilor din formular ]ALERGA ST = TASTE APĂSATĂ: F ST = TASTE APĂSATĂ: O ST = TASTE APĂSATĂ: U ST = TASTE APĂSATĂ: R ST = TASTE APĂSATĂ: ST = TASTE APĂSATĂ: S ST = TASTE APĂSATĂ: S ST = TASTE APĂSATĂ: O ST = TASTE APĂSATĂ: R ST = TASTE APĂSATĂ: E ST = TASTE APĂSATĂ: ST = TASTE APĂSATĂ: A ST = TASTE APĂSATĂ: N ST = TASTE APĂSATĂ: D Ciclul format de operatorii din liniile - se numește ciclu "așteptați", deoarece execuția operatorilor acestui ciclu are loc din nou și din nou până când utilizatorul apasă orice tastă de pe tastatura computerului În acest caz, valoarea de variabila ST indică numărul de repetări ale ciclului până la apăsarea unei taste Jocul "Mai repede, Max!" devine mai interesant dacă oferiți programului corespunzător o procedură de afișare a unui mesaj despre timpul de reacție al jucătorului în secunde Pentru a întocmi o astfel de procedură, este necesar să determinați cât timp durează computerul de care aveți la dispoziție să execute operatorii buclei de așteptare Pentru a face acest lucru, porniți programul și după de secunde apăsați orice tastă Valoarea variabilei CT afișată pe ecran indică de câte ori vor fi repetate instrucțiunile wait loop în de secunde Capitolul F De exemplu, valoarea ST este de aproximativ (pentru computere diferite, aceste numere pot diferi ușor unele de altele) Aceasta înseamnă că bucla de așteptare este executată de / = de ori/s În general, pentru a determina timpul de așteptare, este necesar să se împartă valoarea variabilei CT la , așa cum se face în programul următor (cititorul, când scrie un astfel de program, va trebui să împartă cu alt număr decât și obținute în urma unui experiment similar celui descris mai sus): CT = : REM CLEAR CT - ASTEPTARE REPETARE CONTATOR DAR DACĂ PURĂ (- ) > , ATUNCI : REM VERIFICA DA CĂ A FOST APĂSAT ORICE TASTA CT = CT + : REM DACĂ NU, CREȘTEȚI CONTORUL BUCLEI DE REPETARE GOTO ON: REM ȘI CONTINUAȚI CICLU DE Așteptați GET X$: REM DACĂ DA, ATUNCI ATRIBUIȚI CARACTERUL GET VARIABILEI X$ ȘI PREGĂȚIȚI TASTATURA PENTRU A INTRODUCE URMĂTORUL CARACTER SEC - ST / : DETERMINAREA TIMPULUI DE REACȚIE A JUCĂTORULUI REM (ÎN SECONDE) PRINT "AȚI NEVOIE";SEC;" SEC" Acum totul este pregătit pentru scrierea programului "Faster, Max!", algoritmul căruia este prezentat în Fig Folosind aceasta, cititorul este recomandat să creeze un program pe cont propriu Textul unui program similar compilat de către autorul este prezentat mai jos "Mai repede, topor L ! " (O variantă a programului folosind tastatura computerului) K = : REM PENTRU CURENT DLY - : CICLU DE ÎNTÂRZIERE REM URMĂTORUL DLY R = RND ( ): REM GET NUMĂR ALEATOR DACĂ P ATUNCI : REM VERIFICAȚI DACĂ A FOST APĂSAT ORICE TASTA CT = CT + : REM DACĂ NU, CONȚINUTUL CT ESTE MĂRȘIT CU UNA GOTO : VERIFICAREA STĂRII REM ȘI A TASTATURII OBȚINEȚI X$: REM OBȚINEȚI UN CARACTER ȘI PREGĂȚIȚI TASTATURA PENTRU A INTRODUCE URMĂTORUL CARACTER Jocuri interactive de programare start Orez Capitolul F SEC = ST / : DETERMINAREA TIMPULUI DE REACȚIE A JUCĂTORULUI REM (ÎN SECONDE) PRINT "AȚI NEVOIE ";SEC;" SEC" Recomandări pentru îmbunătățirea inițialei opțiunile programului Este de sperat că, urmând recomandările anterioare, cititorul a făcut față sarcinii de compilare a programului După mai multe sesiuni de joc, pare să existe dorința de a aduce anumite îmbunătățiri programului Mai jos sunt câteva sugestii pentru îmbunătățirea versiunii originale a programului În loc să afișați doar un mesaj despre timpul de reacție al jucătorului, este de preferat să afișați comentarii suplimentare pe ecran folosind operatorii formularului DACĂ SEC > ATUNCI TIPARĂ DACĂ SEC ATUNCI Puteți schimba jocul astfel încât două persoane să poată juca în același timp, fiecare folosind o tastă de pe tastatura computerului sau un buton de pe panoul de control al jocului Sarcina : Utilizarea modului grafic cu rezoluție joasă Scopul programului în curs de dezvoltare este de a stăpâni posibilitățile de utilizare a unui afișaj de computer într-un mod grafic de rezoluție scăzută (modul de rezoluție înaltă este considerat în sarcina ) Condiții prealabile specifice pentru dezvoltarea cu succes: familiaritatea cu soluția problemei Explicație pentru programator: aici avem în vedere posibilitățile de obținere a imaginilor statice (fixe) și în mișcare pe ecranul de afișare prin intermediul modului specificat Capacitatea de afișare grafică de joasă rezoluție a microcomputerului Apple P este foarte potrivită pentru cerințele impuse computerului atunci când vine vorba de programarea jocurilor Cu toate acestea, acest mod de funcționare a afișajului este utilizat pe scară largă atunci când este necesar să se prezinte într-o formă grafică vizuală rezultatele calculelor diferitelor sarcini cu un scop mai serios În modul de rezoluție scăzută, ecranul de afișare al computerului este împărțit în de zone adresabile, numite blocuri (elemente de descompunere): câmpul ecranului este reprezentat ca de rânduri a câte de blocuri fiecare Fiecare bloc poate avea oricare dintre culori În programele acestei probleme, doar două culori sunt folosite pentru a construi imagini: alb și negru Rândurile de blocuri sunt numerotate de sus în jos, rândul de sus este numărul , rândul de jos este numărul În fiecare rând (linie), blocurile sunt numerotate - de la stânga la dreapta Poziția oricărui bloc Capitolul pe ecran este indicat de o pereche de numere: C și R Primul număr C determină numărul coloanei în care se află blocul, iar al doilea R este numărul liniei Valoarea lui C se numește coordonata x a blocului, valoarea lui R se numește coordonată y Pe fig arată unele blocuri pe ecranul de afișare împreună cu coordonatele lor Software-ul Applesoft vă permite să utilizați următoarele șase comenzi într-un program BASIC pentru a desena o imagine pe ecranul de afișare în modul grafic de rezoluție joasă: GR CULOARE=X Această comandă pune afișajul în modul grafic de rezoluție scăzută, șterge ecranul de afișare și înnegrește toate blocurile, își rezervă o zonă mică în partea de jos a câmpului ecranului pentru a păstra patru linii de text, plasează cursorul la începutul acestei zone, permițând scoaterea textului această comandă setează culoarea blocurilor utilizate la trasarea imaginilor folosind comenzile PLOT, HLIN, VLIN; X este un număr întreg de la la care vă permite să selectați culoarea imaginii afișate și anume: - negru ° "- - roșu - albastru închis - magenta - verde închis - gri - maro - portocaliu - gri - roz - verde - galben Jocuri interactive de programare PLOT X, Y HLINX ,X ATU VLIN U , U AT X SCRN (X, Y) - albastru - acvamarin - albastru - alb Prin această comandă, un bloc al câmpului cu coordonatele X, Y este colorat cu culoarea care a fost specificată de ultima dintre comenzile COLOR care precede această comandă PLOT Când utilizați această comandă, un segment de linie orizontal situat în linia Y și care ocupă pozițiile XI-X este vopsit cu culoarea specificată de ultima comandă COLOR care precede această comandă HLIN Când utilizați această comandă, segmentul de linie verticală situat în coloana X și care ocupă pozițiile Y -Y este colorat cu culoarea specificată de ultima comandă COLOR care precede această comandă VLIN Această comandă este utilizată pentru a determina culoarea blocului ale cărui coordonate sunt valorile X și Y mutate Un operator de forma DACĂ SCRN (X, Y) = APOI TIPARĂ "ALB" vă permite să verificați dacă culoarea blocului cu coordonatele x și y este albă În fig Dacă cititorul nu a stăpânit încă pe deplin capacitățile afișajului în modul grafic cu rezoluție scăzută, treizeci TP P I G| II p GP YYYI I I Ш I II I'ГІ I GB Z□PLOT Z C I HLIH , AT Z ~ 'VLIN AT f □ IIIIIIIIIIIIIIIIIIIII III II II I IIIIII D Orez b Capitolul i se poate recomanda efectuarea unei serii de experimente privind construirea diferitelor imagini pe ecran folosind comenzile descrise mai sus Se poate, de exemplu, să încerce citiți imaginile figurilor prezentate în fig selectând orice culoare validă de afișat Programul de mai jos demonstrează o posibilă soluție la această problemă DE GR: MOD GRAFIC REM CU REZOLUȚIE MICĂ CULOARE = : REM CULOARE ALB REM A CONSTRUIT O IMAGINĂ CU O CRUCE MICĂ HLIN AT VLIN / LA IMAGINĂ REM A O CRUCE LUNGĂ SUBȚIRE HLIN LA VLIN AT REM A CONSTRUIT O IMAGINĂ A O CRUCE SCURTĂ ÎNDREȘTE HLIN AT HLIN LA VLIN LA VLIN la REM CONSTRUIEȘTE IMAGINEA "SCAREA" HLIN LA HLIN LA HLIN , LA HLIN , LA REM X Jocuri interactive de programare PENTRU I \u d LA PLOT + , + I PLOT + , - I NEXT I Folosind viteza computerului, este posibil să se formeze imagini în mișcare pe ecranul de afișare Un exemplu de rezolvare a unei astfel de probleme este următorul program: REM DISPLAY MOTION DEMO Software-ul REM GR: REM SETAREA MODULUI GRAFIC LA REZOLUȚIE MICĂ CULOARE = : REM PICTURE CULOARE ALB I PLOT : MIȘCAREA OBIECTULUI REM ÎNCEPE DE LA MUCHIA STÂNGA A CÂMPULUI ECRANULUI PENTRU I = LA PENTRU DLY = LA : NEXT DLY: REM DELAY CYCLE CULOARE = : PLOT , : REM CULOARE = : PLOT + , : REM URMĂTORUL I Când acest program rulează, puteți vedea imaginea blocului mișcându-se de la stânga la dreapta pe ecran Partea cheie a acestui mic program este bucla FOR NEXT (liniile - ) Linia reprezintă, în esență, bucla de întârziere a programului, în timp ce formarea efectivă a imaginii în mișcare este realizată de liniile și Pentru a se asigura că blocul se deplasează de la stânga la dreapta de la poziția cu coordonatele (/, ) la pozitia cu coordonate (/+ , ), operatorul de pe linia se asigura ca imaginea blocului din pozitia precedenta este stersa, iar operatorul de pe linia construieste imaginea blocului din urmatorul Ștergerea se face setând culoarea neagră a blocului în locul corespunzător de pe ecran În programul sarcinii Tonky prin labirint, imaginea unui bloc în mișcare este folosită pentru a indica o mașină de curse condusă de jucător prin labirint Multe jocuri folosesc mișcarea unui obiect controlat în acest mod Ambele metode de schimb activ de mesaje între o persoană și un computer, luate în considerare în Problema , pot fi utilizate în programarea jocurilor Mai jos luăm în considerare controlul mișcării unui obiect folosind tastatura computerului Mai târziu, va fi luată în considerare o altă versiune a aceluiași program, care folosește panoul de control al jocului pentru a controla mișcarea unui obiect În ambele versiuni ale programului, partea centrală este același ciclu principal care implementează mișcarea obiectului Capitolul Bucla principală Să ne întoarcem la Fig Să presupunem că o mașină de curse este afișată pe ecran ca un bloc de culoare neagră într-o poziție cu coordonate ( , ) Este necesar să scrieți un program care să ofere utilizatorului posibilitatea de a controla mișcarea "mașină" în patru direcții: - în sus, la poziția cu coordonatele ( , ), - la dreapta, la poziția cu coordonatele ( , ), - în jos, la poziția cu coordonatele ( , ), - la stânga, la poziția cu coordonatele ( , ) Folosim patru variabile pentru a controla mișcarea unei mașini de curse: X și Y pentru a stoca coordonatele curente ale mașinii (în Fig X= , Y= ), SX și SY pentru a indica modificările de coordonate necesare pentru a muta imaginea Valorile pe care trebuie să le ia variabilele SX și SY sunt determinate de direcția necesară mișcare, și anume: SX = , SX= , sr=o sx=o, sr=i SX = - , sr = o când vă deplasați în sus, când vă deplasați la dreapta, când vă deplasați în jos, când vă deplasați spre stânga Valorile coordonatelor noii poziții a obiectului mutat poate fi definit astfel: X = X + SX Y = Y + Y tttt Valoare nouă X Valoare veche X Nou Valoare veche Y Valoare Y Următoarele trei rânduri ale programului BASIC vă permit să efectuați calculele necesare pentru a muta Jocuri interactive de programare imaginile vehiculului o poziție în direcția corespunzătoare: CULOARE = : PLOT X, Y: REM x = X + SX : Y = Y - SY: CALCULUL COORDONATE REM AL POZIȚIEI DE BLOC NOI CULOARE = : PLOT X, Y: REM BLOC IMAGINEA ÎN NOUA POZIȚIE Restul acestui program este scris în două versiuni: folosind panoul de control al jocului și folosind tastatura computerului Versiunea programului folosind tastatura computerului În această versiune a programului luat în considerare, patru taste ale tastaturii computerului sunt folosite pentru a controla mișcarea "mașinii de curse": Cheie Direcția de deplasare KJ M eu Dreapta Stânga Jos Sus Apăsarea oricărei alte taste oprește mașina Liniile și - din textul programului de mai jos sunt folosite pentru a determina starea tastaturii computerului și pentru a atribui valorile corespunzătoare variabilelor SX și SY DACĂ PURĂ(- ) > ATUNCI : REM VERIFICAȚI DACĂ A FOST APĂSAT ORICE TASTA REM PROCEDURA PENTRU SCHIMBAREA DIRECȚII MIȘCĂRII DUPĂ CARE A FOST APĂSAT TASPA OBȚINEȚI X$: REM X$ ESTE ATRICAT LA VALOAREA CHAR A TASTEI APĂSAȚE DACĂ X$ = "K" ATUNCI SX = : SY = : GOTO : REM CÂND TASPA "K" ESTE APĂSATĂ LA DREAPTA MUTAȚI DACĂ X$ = "J" ATUNCI SX = - : SY = : GOTO : REM CÂND TASPA "J" ESTE APĂSATĂ LA STÂNGA DACĂ X$ = "M" ATUNCI SX = : SY = : GOTO : REM CÂND TASPA "M" ESTE APĂSATĂ nr JOS DACĂ X$ = " " ATUNCI SX = : SY = - : GOTO : REM CÂND TASPA " " ESTE APĂSATĂ SUS SX = : SY = : GOTO : REM CÂND APĂSAȚI ORICE ALTĂ TASTE POZIȚIA OBIECTULUI NU SE MODIFICA Acum, cititorul ar trebui să încerce să creeze independent un program care oferă utilizatorului capacitatea de a controla mișcarea blocului de pe ecran prin tastatură treizeci Capitolul F afișaj, cu condiția ca culoarea blocului să fie albă, iar poziția inițială să aibă coordonatele ( , ) Dacă întâmpinați dificultăți în procesul de scriere a unui program, vă puteți referi la textul programului de mai jos GR : REM SETAREA MODULUI GRAFIC LA REZOLUȚIE JOCĂ X = : Y •= : REM SET OBIECT COORDONATE POZIȚIE ACASĂ SX = : SY = : OBIECTUL REM ÎNCĂ LA STARTUL PROGRAMULUI REM MAIN OBJECT MOVEMENT LOOP ' PENTRU DLY = LA : NEXT DLY: REM DELAY LOOP CULOARE = : PLOT X, Y: REM ȘTERGERE BLOC IMAGINE ÎN POZIȚIA VECHE X = X + SX : Y = Y + SY: REM CULOARE = : PLOT X, Y: REM BLOC IMAGINEA ÎN NOUA POZIȚIE DACĂ PURĂ (- ) > , ATUNCI : REM VERIFICAȚI DACĂ A FOST APĂSAT ORICE TASTA GOTO : REM DACĂ NU, REPEȚI CICLU DE ÎNTÂRZIERE PROGRAM DE DIRECȚIE REM DUPĂ CARE TASPA ESTE APĂSATĂ OBȚINEȚI X$: REM X$ ESTE ATRICAT LA VALOAREA CHAR A TASTEI APĂSAȚE DACĂ X$ = "K" ATUNCI SX = : SY = : GOTO : REM CÂND TASPA "K" ESTE APĂSATĂ LA DREAPTA MUTAȚI DACĂ X$ = "J" ATUNCI SX = - : SY = : GOTO : REM CÂND TASPA "J" ESTE APĂSATĂ LA STÂNGA DACĂ X$ = "M" ATUNCI SX = : SY = : GOTO : REM CÂND TASPA "M" ESTE APĂSATĂ JOS DACĂ X$ = " " ATUNCI SX = : SY = - : GOTO : REM CÂND TASPA " " ESTE APĂSATĂ SUS SX = : SY = : GOTO : REM CÂND ESTE APĂSATĂ ORICE ALTĂ TASTE POZIȚIA OBIECTULUI NU SE MODIFICA Se recomandă repetarea pornirii de mai multe ori program pentru a câștiga experiență în manipularea tastelor corespunzătoare Viteza de mișcare a blocului poate fi modificată prin modificarea valorii maxime a parametrului ciclului de întârziere din linia Rețineți că încercarea de a muta blocul în afara ecranului face ca mesajul EROARE CANTITATE ILEGALĂ (valoare invalidă) să apară pe ecranul de afișare Versiunea programului folosind panoul de control al jocului Luați în considerare implementarea capacității de a controla mișcarea unui obiect folosind panourile de control ale jocului În acest caz, mișcarea blocului pe ecranul de afișare este controlată conform următoarelor reguli: Jocuri interactive de programare ) dacă ambele butoane de control al jocului nu sunt apăsate, blocul se mișcă în jos, ) dacă ambele butoane de control al jocului sunt apăsate, blocul se mișcă în sus, ) dacă doar butonul este apăsat, blocul se deplasează la dreapta, ) dacă este apăsat doar butonul , blocul se deplasează spre stânga Versiunea programului axată pe utilizarea panoului de control al jocului este în multe privințe similară cu versiunea care implică utilizarea tastaturii unui computer Textele ambelor programe diferă doar în rândurile - care conțin operatori de control al mișcării Schema algoritmului din fig descrie funcționarea acestei părți a versiunii luate în considerare a programului Orez Cititorul poate încerca, folosind diagrama algoritmului din Fig , modificați versiunea anterioară a programului pentru a oferi controlul mișcării blocului folosind panoul de control al jocului În cazul oricăror dificultăți, vă puteți referi la textul programului de mai jos Capitolul GR: REM SETAREA MODULUI GRAFIC LA REZOLUȚIE MICĂ ON X = : Y = : REM SET OBIECT COORDONATE POZIȚIE ACASĂ SX = : SY = : OBIECTUL REM ESTE ÎNCĂ LA STARTUL PROGRAMULUI REM OBIECTUL PRINCIPAL BUCLA DE MIȘCARE FOR DLY = LA : NEXT DLY: REM DELAY LOOP CULOARE = : PLOTX,Y: REM X = X + SX: Y = Y + SY: REM CULOARE = : PLOT X, Y: REM BLOC IMAGINEA ÎN NOUA POZIȚIE DACĂ PURĂ (- ) > ATUNCI : REM VERIFICAȚI DACA BUTONUL DE CONTROL JOC ESTE APĂSAT DACĂ PURĂ (- ) > ATUNCI : REM VERIFICAȚI DACĂ BUTONUL DE CONTROL JOCUL ESTE APĂSAT SX = :SY = : GOTO : OBIECT REM SE MUȘĂ ÎN JOS SX = :SY = : GOTO : OBIECTUL REM SE MUSTE LA DREAPTA DACĂ PURĂ (- ) > ATUNCI : REM VERIFICAȚI DACĂ BUTONUL DE CONTROL JOC ESTE APĂSAT SX = - : SY = : GOTO : OBIECTUL REM SE MUȚĂ LA STÂNGA SX = : SY = - : GOTO : OBIECTUL REM SE MUSCĂ SUS Este recomandat să repetați lansarea programului dezvoltat de mai multe ori pentru a câștiga pricepere în manipularea butoanelor panourilor de control ale jocului Soluțiile propuse pentru această problemă pot fi aplicate în dezvoltarea multor alte programe care implementează jocuri pe computer Unul dintre aceste jocuri, numit "Maze Racing", este luat în considerare în următoarea problemă Sarcina "Cursa prin labirint" Scopul programului dezvoltat: utilizarea ca un joc care oferă posibilitatea de a controla o "mașină" care se mișcă prin labirint Condiții preliminare specifice pentru dezvoltarea de succes: familiaritatea cu soluția problemei Explicații pentru programator: cea mai mare parte a programului dezvoltat a fost deja luată în considerare în sarcina Un joc aparent simplu precum cel descris mai jos este adesea destul de dificil de jucat În acest caz, jucătorul controlează "mașina" care se deplasează prin labirint Este necesar să conduci "mașina" prin labirint fără să lovească pereții "Mașina de curse" se mișcă cu o viteză constantă, iar jucătorul are capacitatea a controla Jocuri interactive de programare lyat numai direcția de mișcare Deși condițiile jocului pot părea foarte simple, se poate judeca dificultatea atingerii scopului doar testându-și capacitățile în practică Prima sarcină care apare la compilarea programului care implementează jocul este alegerea configurației labirintului și construirea imaginii acestuia pe ecranul de afișare Pentru a forma o astfel de imagine, folosim un afișaj în modul grafic cu o rezoluție scăzută Pe fig prezintă una dintre variantele posibile ale labirintului Pasajele din labirint au trei blocuri lățime pentru a oferi spațiu pentru manevra vehiculului între pereți Această versiune a labirintului este atractivă prin faptul că are mai multe opțiuni pentru calea de dificultate diferită Cititorul poate folosi alte versiuni, mai complexe, ale labirintului în timp ce stăpânește arta de a conduce o mașină Procedura de formare a unei imagini labirint pe ecranul de afișare constă în principal în nr Capitolul set de comenzi precum VLIN și HLIN Cititorul ar trebui să încerce să alcătuiască singur o astfel de procedură Procedura de formare a imaginii labirintului prezentat în fig are următoarea formă: GR : REM SETAREA MODULUI GRAFIC LA REZOLUȚIE JOCĂ CULOARE CU =±= : CULOARE UTILIZATĂ IMAGINE REM-ALB VLIN , AT : LABIRINTUL IMAGINELOR REM (LINII - ) VLIN , AT VLIN , LA VLIN , LA VLIN , LA VLIN , AT VLIN LA VLIN LA VLIN AT VLIN AT VLIN AT VLIN , LA VLIN AT VLIN LA VLIN AT VLIN AT VLIN , AT VLIN , AT HLIN , LA HLIN LA HLIN LA HLIN , LA HLIN , LA HLIN , LA HLIN , LA HLIN , AT HLIN , LA HLIN , AT HLIN , LA HLIN LA HLIN , AT HLIN , AT HLIN , AT Dacă un astfel de text a fost deja format pe ecranul de afișare, este necesar să-l stocați în memorie pentru a nu-l tasta din nou pe tastatură ulterior Este recomandabil să verificați imediat operabilitatea unei proceduri similare celei luate în considerare, rulând-o Dacă există o procedură pentru formarea unui labirint, precum și o procedură pentru controlul mișcării unui obiect pe ecranul de afișare obținută la rezolvarea problemei , putem presupune că % din textul programului jocului " Subțire în labirint' a fost deja dezvoltat Cele % lipsă sunt necesare pentru a finaliza următoarele: Jocuri interactive de programare Programul trebuie să verifice dacă poziția actuală și direcția de mișcare a "mașinii" amenință să se ciocnească de peretele labirintului Deoarece pereții labirintului sunt albi, iar pasajele sunt negre, această verificare este ușor de realizat; folosind funcția SCRN, ar trebui să verificați pur și simplu dacă culoarea blocului (elementului de descompunere) al ecranului cu coordonatele corespunzătoare noii poziții a mașinii este albă Da, operatorul DACĂ SCRN (X, Y) > ATUNCI verifică culoarea blocului cu coordonatele (X, Y) și, dacă culoarea sa este alta decât neagră (adică blocul aparține unuia dintre pereții labirintului), transferă controlul către operatorul situat în linia de programe Programul ar trebui să prevadă verificarea dacă "mașina" a finalizat cu succes cursa Când se utilizează versiunea propusă a labirintului, cursa este considerată finalizată cu succes dacă "mașina" a ajuns în orice poziție a câmpului cu coordonata Y= O astfel de verificare este efectuată, de exemplu, de către operator DACĂ Y = ATUNCI Când "mașina" ajunge la linia de sosire (U= )', controlul este transferat operatorului situat în linia a programului Mișcarea "mașinii" trebuie să înceapă întotdeauna din punctul cu coordonatele ( , ) În programul care prevede utilizarea tastaturii unui computer, în momentul pornirii, "mașina" începe să se miște în jos (SX= , SY= ) Se recomandă cititorului să încerce să compună independent programul "Cursa prin labirint", folosind rezultatele rezolvării problemei și schema algoritmului din Fig Atât tastatura computerului, cât și panoul de control al jocului sunt potrivite pentru controlul mișcării "mașinii" În primul caz, în timpul jocului, programul nu ar trebui să permită "mașinii" să se oprească, deoarece este foarte ușor să controlați mașină, care poate fi oprită pentru o perioadă În cazul oricăror dificultăți în scrierea programului, trebuie să vă referiți la textele celor două versiuni ale acestuia plasate mai jos (despre utilizarea tastaturii computerului și, respectiv, utilizarea panoului de control al jocului) Ambele versiuni ale programului sunt aproape identice, cu excepția liniilor - Când utilizați tastatura computerului în momentul pornirii, mașina începe să se miște în jos (linia a programului) Când utilizați panoul de control al jocului, mișcarea în jos corespunde situației în care nu este apăsat niciun buton de pe panoul de control al jocului, adică are loc automat * start Orez, Jocuri interactive de programare Programul "Cursa prin labirint" (folosind tastatura computerului) YOO GR : REM SETAREA MODULUI GRAFIC CU REZOLUȚIE MICĂ COLOR BY = : REM IMAGE UTILIZAT CULOARE-ALB VLIN , AT : LABIRINTUL IMAGINELOR REM (LINII - ) VLIN , AT VLIN , LA VLIN , LA VLIN , LA VLIN , AT VLIN LA VLIN LA VLIN AT VLIN AT VLIN AT VLIN , LA VLIN AT VLIN LA VLIN AT VLIN AT VLIN , AT VLIN , AT HLIN , LA HLIN LA HLIN LA HLIN , LA HLIN , LA HLIN , LA HLIN , LA HLIN , AT HLIN , LA HLIN , AT HLIN , LA HLIN LA HLIN , AT HLIN , AT HLIN , AT X = : Y = : REM SETARE INIȚIALĂ A "MAȘINĂ" SX = :SY = : PORNIRE REM "MAȘINĂ" ÎN JOS PLOT X, Y: REM DISPLAY "CAR" PE ECRAN PENTRU DLY = LA : NEXT DLY: REM DELAY CYCLE DACĂ PURĂ (- ) ATUNCI : REM DACĂ Y = ATUNCI : REM VERIFICA DACA "MAȘINĂ" A TERMINAT CURSA CU SUCCES CULOARE = : GOTO : REM SET WHITE VTAB ( ): PENTRU K = LA : CURSOR DE POZIȚIE REM ÎN ZONA TEXTULUI ECRANULUI PRINT "***** PROBLEME! *****": LÂNGĂ: GOTO : VEHICULUL REM S-A ACCIDENT VTAB( ): PENTRU K = LA : CURSOR DE POZIȚIE REM ÎN ZONA TEXTULUI ECRANULUI PRINT FELICITARI! LANGA: REM RACE COMPLETAT CU SUCCES Program Maze Racing (folosind panoul de control al jocului) Rândurile - , - și - din această versiune a textului programului se potrivesc exact cu textul versiunii anterioare și nu se repetă Fragmentul programului prezentat mai jos înlocuiește rândurile - și ale versiunii programului folosind tastatura computerului PLOT X, Y: REM DISPLAY "CAR" PE ECRAN PENTRU DLY = LA : NEXT DLY: REM DELAY CYCLE DACĂ PURĂ (- ) > ATUNCI : VERIFICARE REM, ESTE APASAT BUTONUL DE CONTROL JOC? DACĂ PURĂ (- ) > ATUNCI : REM VERIFICAȚI DACĂ BUTONUL DE CONTROL JOCUL ESTE APĂSAT SX = : SY = I: GOTO : REM DACĂ AMBELE BUTONE NU SUNT APĂSAȚI, "MAȘINA" SE MIȘTE ÎN JOS SX = : SY = : GOTO : REM DACĂ ESTE APĂSAT NUMAI BUTONUL , "MAȘINA" SE MIȘTE LA DREAPTA F REEK (- ) > APOI : REM VERIFICAȚI DACĂ BUTONUL DE CONTROL JOCUL ESTE APĂSAT SX = :SY = : GOTO : REM DACĂ ESTE APĂSAT NUMAI BUTONUL , "MAȘINĂ" SE MIȘTE LA STANGA SX = :SY = - : REM DACĂ SUNT APĂSAȚI AMBELE BUTONE, "MAȘINĂ" SE MUȚĂ ÎN SUS CULOARE = : GOTO : REM RETURN TO WHITE Recomandări pentru îmbunătățirea inițialei opțiunile programului Includeți în textul programului afirmații care provoacă sunetul semnalului sonor și pâlpâirea imaginii în cazul unui accident (mașina s-a izbit de un perete) sau la finalizarea cu succes a cursei Adăugați la textul programului o procedură pentru calcularea timpului petrecut de jucător pe trecerea pistei de curse cu mașina Jocuri interactive de programare Suplimentează programul cu procedura de alegere a vitezei mașinii de către jucător (Pentru a face acest lucru, este suficient să modificați durata buclei de întârziere ) Sarcina Maze Generator Scopul programului în curs de dezvoltare este de a genera o imagine a unui labirint aleatoriu Precondiții specifice pentru dezvoltarea cu succes: familiaritatea cu metodele de obținere a numerelor aleatorii și funcționarea afișajului în modul grafic cu rezoluție scăzută Obținerea și utilizarea secvențelor de numere aleatoare este luată în considerare în sarcina , iar capacitățile de afișare în modul grafic cu rezoluție scăzută sunt luate în considerare în sarcina Explicații pentru programator: multe jocuri pe calculator folosesc labirinturi Programul în curs de dezvoltare creează labirinturi aleatoriu Poate fi folosit ca parte a unor programe mai complexe care implementează jocuri pe computer În special, programul aflat în curs de dezvoltare poate fi inclus în programul sarcinii "Thin in the maze", astfel încât în fiecare nouă sesiune a jocului să fie folosit un nou labirint Programul dezvoltat are aproximativ același nivel de complexitate ca și programul sarcinii "Subțire prin labirint" Singura particularitate este utilizarea funcției INT, a cărei valoare este egală cu partea întreagă a argumentului Multe jocuri programate pe calculator folosesc câmpul de afișare pentru a desena imagini cu labirinturi Programul dezvoltat prevede formarea de labirinturi de configurație aleatorie Metoda de formare a unui labirint pe ecranul de afișare în programul dezvoltat este aceeași ca și în programul jocului "Thin Maze", iar afișajul este utilizat într-un mod grafic de rezoluție scăzută Aceasta oferă o soluție simplă la problema combinării capacităților ambelor programe Execuția programului începe cu construirea unei grile de dungi verticale și orizontale pe ecranul de afișare (Fig ) Rețineți că dungi verticale și orizontale ale grilei labirint împart întreg câmpul ecranului în de pătrate, fiecare dintre cele rânduri conținând pătrate Programul dezvoltat este conceput pentru a obține o imagine a unui labirint ''canonic''^ când există unul și un singur pasaj între fiecare două pătrate învecinate (Labirintul folosit în programul "Tonky Po La Capitolul birintu", nu este canonic x) )' Labirintul este construit prin eliminarea barierelor dintre pătratele adiacente ale grilei originale Rezultatul este o imagine pe ecran i iii D - - - I - - - - - - - - - - - - - - - - Orez Orez labirint ca cel prezentat în fig Rețineți că labirintul nu are nici intrare, nici ieșire, a cărui nevoie este destul de evidentă Înainte de a începe lucrul la programul menționat, autorul nu știa despre existența unui astfel de termen ca un labirint "canonic", Jocuri interactive de programare Pentru o mai mare claritate a procesului de formare a unui labirint, să plasăm un punct în centrul fiecărui pătrat și să conectăm astfel de puncte cu segmente de linie dreaptă, barierele dintre care sunt eliminate Liniile astfel obținute indică modalitățile posibile de deplasare prin labirint dintr-un pătrat în altul (Fig ) Imaginea căilor de mișcare este numită "copacul" labirintului Rețineți că ramurile copacului ajung în centrul fiecărui pătrat original Acum putem spune că algoritmul pentru construirea unui labirint descrie în esență procesul de creștere a unui copac labirint În primul rând, un pătrat este selectat aleatoriu în care este plasat "răsadul" Apoi copacul începe să crească aleatoriu până când ramurile sale pătrund în toate pătratele Ori de câte ori o ramură a unui copac intră într-un pătrat nou, ea traversează bariera care separă două pătrate învecinate: cel vechi și cel nou - această barieră trebuie îndepărtată Rezultatul este un labirint Amintiți-vă că construcția labirintului începe cu crearea unei grile de dungi verticale și orizontale care împart întregul câmp al ecranului de afișare în de pătrate; sunt rânduri în câmp, fiecare rând are pătrate Pentru a stoca informații despre dacă aceste pătrate aparțin sau nu uneia sau alteia ramuri a arborelui, se folosește o matrice, rezervată de operatorul DIM AfZ ( , ) Valoarea elementului MZ (/, J) al acestui tablou este egală cu + dacă pătratul L din al-lea rând nu aparține nici unei ramuri a arborelui labirintului în construcție și este egal cu - in caz contrar Să începem construcția copacului cu un pătrat ales arbitrar (unde este plasat "răsadul" viitorului copac) La fiecare pas al construcției labirintului, una dintre bariere este îndepărtată și unul dintre pătrate este adăugat arborelui "în creștere" După îndepărtarea a de bariere, toate pătratele ( ) sunt atașate arborelui labirint Pe fig este o diagramă a algoritmului pentru construirea unui labirint în modul descris Să o luăm în considerare mai detaliat Block (r): Scopul acestui pas este evident Bloc Selectarea aleatorie a coordonatelor pătratului pentru a plasa "răsadului" se realizează prin alocarea variabilelor [ și J valorilor alese arbitrar , atunci Block(r): Operațiile anterioare determină acțiunile în această etapă: un pătrat care nu a aparținut labirintului înainte Jocuri interactive de programare este marcat ca parte a labirintului, iar imaginea barierei corespunzătoare este eliminată de pe ecran (ștersă) Aceste funcții sunt îndeplinite de operatori MZ(X, Y) = - : MZ(X + , Y) = - VLIN * Y - , * Y - AT * X Nota Folosind operatorul din linia , este mai ușor să marcați ambele pătrate ca aparținând labirintului decât să determinați preliminar care dintre ele nu aparține încă labirintului și apoi să marcați numai pe el Nota Când ștergeți imaginea barieră folosind operatorul din linia , se presupune că culoarea neagră a fost setată mai devreme (folosind un operator de forma COLOR = ) Block(r): Înlăturarea a de bariere se realizează prin intermediul unei bucle implementate într-un program BASIC printr-o construcție de forma FOR , Următorul, Cititorul este încurajat să creeze singur un program pentru construirea de labirinturi Dacă este necesar, puteți consulta textul programului de mai jos Capitolul Dar REM MAZE GENERATOR REM DIM MZ ( , ): REM REZERVĂ MEMORIE PENTRU STOCAREA INFORMAȚIILOR DESPRE PĂTRAȚELE CU COORDONATE (I-J) PENTRU I = LA : PENTRU J = LA MZ(I, J) = : REM INIȚIAL VALOAREA FIECĂRUI ELEMENT AL MATRIEI ESTE , adică PĂTRATUL CORESPONDANT NU APARTINE ARBORULUI LABIRINTULUI URMĂTORUL J: URMĂTORUL I I = + INT( * RND( )): ALEGEREA REM A UNUI PĂTRAT ARBITRAR PENTRU LABERINTUL "RADULUI" J = + INT ( * RND ( )): REM MZ(I, J) = - GR : CULOARE = : REM SET MOD GRAFIC REZOLUȚIE JASĂ CULOARE ALB PENTRU X = APOI PASUL : REM MESH PENTRU LABERINT HLIN , AT X VLIN , AT X Următorul X CULOARE = : REM SET CULOARE NEGRU PENTRU ELIMERE BARIERELE PENTRU ST = APOI : ȘTERGEȚI DE BARIERE PENTRU A CONECTA TOATE PĂTRATULUI UNIC DACĂ RND ( ) ATUNCI : REM DELETE O BARIERĂ DACĂ CONDUCE LA ADĂUGAREA UNUI PĂTRAT NOU LA LABIRINTUL MZ(X,Y) =- ::MZ(X + ,Y) = - : PĂTRAT NOU REM MARCAT CA APȚINÂND ARBORULUI LABIRINTUL VL N * Y - , * Y - AT * X: ȘTERGERE IMAGINII BARIERĂ REM NEXT ST: REM RETURN TO REPEAT CYCLE Sfârşit X = + INT ( * RND ( )): REM PROCEDURA DE DEMONTARE A BARIEREI ORIZONTALE • Y = + INT ( * RND ( )): REM SELECTAȚI O BARIERĂ CA "CANDIDAT" PENTRU ÎNDEPARTARE DACĂ MZ(X,Y) * MZ(X,Y + ) > ATUNCI ; DEMONTARE REM O BARIERĂ DACĂ CONDUCE LA ADĂUGAREA UNUI PĂTRAT NOU LA LABIRINTUL MZ(X,Y) =- :MZ(X,Y + ) == - : PĂTRAT NOU REM MARCAT CA APARTINÂND ARBORULUI LABIRINTUL Jocuri interactive de programare HLIN * X - , * X - AT * Y: ȘTERGERE BARIERĂ REM NEXT ST sfârşitul Sarcină suplimentară Încercați să includeți programul scris în programul problemei "Cursa prin labirint" În acest caz, jocul devine mai interesant, deoarece "traseul" curselor nu este cunoscut de jucător în prealabil Sarcina Curse de câini Scopul programului în curs de dezvoltare este de a-l folosi ca un joc similar cu "Maze Racing" (Jucătorul controlează alergarea câinelui de-a lungul pistei, succesul depinde de viteza reacției sale și de precizia coordonării mișcărilor ) Condiții preliminare specifice pentru dezvoltarea de succes: familiaritatea cu soluția problemei Explicații pentru programator: pentru a rezolva sarcina, nu sunt necesare tehnici noi de programare, dar programul în curs de dezvoltare este mai complicat decât programul celor patru sarcini anterioare Să ne imaginăm un jucător care stă în fața unui afișaj, pe ecranul căruia linia de start, banda de alergare și câinele sunt înghețate pregătite pentru o liniuță înainte (Fig ) Brusc, se aude un bip pentru a începe cursa Jucătorul apasă tasta "K" Câinele se grăbește înainte cu o smucitură, desfăcându-și labele lungi (Fig ), Acum ar trebui să apăsați tasta "J" Mușchii puternici se contractă, gata pentru un nou salt înainte, iar corpul câinelui se grăbește spre linia de sosire (Fig ), Prin apăsarea tastelor "K" și "J" alternativ cât mai repede posibil, jucătorul controlează alergarea câinelui către linia de sosire, Cu toate acestea, trebuie să aveți grijă: atunci când apăsați orice altă tastă, cu excepția "K" sau "J", sau pe una dintre aceste taste de două ori, câinele se împiedică, cade pe pistă și pierde cursa (Fig ) Dacă jucătorul reușește să facă câinele să alerge toată distanța până la linia de sosire fără să cadă (ceea ce este mult mai dificil decât pare la prima vedere), pe ecran va apărea un mesaj despre timpul scurs, Poate cineva să obțină câine să parcurgă distanța în mai puțin de secunde? Să începem să dezvoltăm un program pentru un astfel de joc prin construirea unei diagrame de algoritm Se presupune că pe o bandă de alergare un câine poate fi în trei stări: gata să se zvâcnească înainte, să alerge sau să cadă (Fig ) Dacă cititorul desenează mai bine Ochii Orez Orez Orez Orez Orez , Jocuri interactive de programare Orez Capitolul autorul și are o imaginație mai bogată, atunci dacă dorește să înfățișeze un cangur sau o girafă, trebuie să ia în considerare cu atenție formele de reprezentare a celor trei stări ale animalului la distanță Să ne întoarcem acum la algoritmul din Figura Deplasând-o pas cu pas, puteți transforma acțiunile prescrise de acesta în instrucțiunile corespunzătoare ale programului în limbajul BASIC Cititorul este sfătuit să facă exact acest lucru înainte de a citi textul programului de mai jos, compilat de autor Primul bloc al algoritmului arată astfel: Construirea unei imagini a unei benzi de alergare; formarea unei imagini a unui câine (P) la început; indicarea cronometrului: = Pe fig arată imaginea care apare pe ecranul de afișare înainte de începerea cursei La marginea dreaptă a câmpului ecranului, linia de sosire este marcată cu gri (CULOARE = ), Orez alte linii sunt marcate cu alb (CULOARE = ) Fragmentul de program corespunzător acestui bloc al diagramei algoritmului are următoarea formă: GR : MOD GRAFIC REM REZOLUȚIE MICĂ NOME G$ = " REM CTRL-G SIMBOLUL PENTRU BIP CULOARE = : CULOARE REM ALB PLOT : REM DOG IMAGING LA LINIA DE START VLIN , AT HLIN AT HLIN AT VLIN , AT VLIN , AT VLIN , AT A = : REM DOG SETARE POZIȚIE ACASĂ Jocuri interactive de programare T = - REM SETARE ZERO CRONOMETRAJ HLIN , LA CULOARE = : CULOARE REM - GR PENTRU LINIA DE FINIS VLIN , LA : IMAGINE DE LA LINIA DE ARRIVIER REM CULOARE = : REM RETURN TO WHITE Conținutul rândului al programului necesită explicații Introducând de la tastatura computerului caracterul de control CTRL-G nu este afișat pe ecran Mulți programatori pun o linie ca linia CTRL-G nu se afișează pe ecran eu GS = " ": REM CTRL-G CHAR PENTRU BEEP la începutul programului Executarea instrucțiunii de program ulterioare PRINT G$ provoacă un semnal sonor Aceeași acțiune poate fi efectuată prin setarea semnalului sonor într-un mod mai puțin evident: CTRL-G nu se afișează pe ecran IMPRIMARE " " Variabila A este folosită pentru a stoca valoarea coordonate a poziției curente a câinelui Înainte de începerea următoarei alergări (start), se presupune A= (linia ) Alegerea unei ore de începere aleatorie; mesaj " MARTIE!* Acest fragment al programului este în multe privințe similar cu primele câteva rânduri ale jocului "Faster, Max!" Cu toate acestea, există și diferențe Fragmentul de mai jos este completat cu o verificare (linia )f dacă a existat o "pornire falsă" (adică, cazul în care utilizatorul apasă o tastă înainte ca semnalul de pornire să fie dat) Dacă apare un "început fals", instrucțiunile din rândurile - sunt executate, furnizând un semnal sonor, afișând mesajul "ÎNCEPERE FALSE" și trecând la o nouă sesiune a jocului Capitolul PENTRU DLY = LA : CICLU DE ÎNTÂRZIERE REM DACĂ PURĂ (- ) > ATUNCI : REM URMĂTORUL DLY IF RND ( ) "K" APOI : CÂINELE REM SE împiedecă CÂND APĂSĂ O tastă ilegală Mutați imaginea câinelui (S) cu un pas spre dreapta Jocuri interactive de programare Pentru a înțelege mai bine cum este compus acest fragment al programului, este necesar să se formeze secvenţial pe ecran imagini ale unui câine gata să alerge înainte (P) și al unui câine care alergă (S) deplasat cu un pas p spre dreapta, așa cum se arată în Smochin orez Blocurile din câmpul ecranului pline cu puncte se referă la vechea imagine a câinelui și sunt supuse ștergerii Blocurile umbrite se referă la noua imagine câini și urmează să fie jucate pe ecran Astfel, este posibil să mutați imaginea câinelui cu un pas spre dreapta în timp ce îi schimbați starea "P" la " " Pentru aceasta folosim următorul fragment de program: PLOT A + : REM DOG RUNNING SPUT IMAGING PARCEL A + , VLIN , ATA A + PARCELA A + , VLIN , ATA A + CULOARE = : REM SETARE CULOAREA NEGRU PENTRU A ȘTERGE ELEMENTELE IMAGINIEI PARCEL A, VLIN , ATA A + VLIN , ATA A + VLIN , ATA A + CULOARE = : REM RETURN TO WHITE A = A + : REA! MUTAȚI IMAGINEA CÂINElui LA DREAPTA UN PAS Rețineți că variabila A este folosită pentru a stoca valoarea coordonatei marginii din stânga a imaginii câinelui Când vă formați o imagine a unui câine într-o poziție nouă, puteți } Un pas trebuie înțeles ca blocuri din care se formează orice imagine pe ecran atunci când afișajul funcționează în modul grafic de rezoluție scăzută, - Notă, ed " Capitolul să nu meargă așa cum este descris mai sus, și anume: să ștergi complet vechea imagine a câinelui și apoi să formezi una nouă Cititorul este încurajat să compună un fragment corespunzător al programului Acest lucru poate provoca pâlpâirea imaginii, dar programul este mai simplu Funcționarea unei părți a algoritmului este destul de evidentă și a fost deja discutată mai sus IF REEK (- ) "J" ATUNCI : REM ON PRESS CÂINE CHEIE ILEGALE Deplasarea imaginii câinelui (P) cu un pas spre dreapta În acest fragment de program, trebuie să convertiți imaginea unui câine care alergă (S) într-o imagine a unui câine gata să alerge înainte (P), dar deplasat cu un pas spre dreapta Pe fig , similar cu fig , sunt afișate ambele imagini ale câinelui Ca și în cazul precedent, părțile din imagine umplute cu puncte marchează blocurile de îndepărtat, iar cele umbrite -> adăugate imaginii Variabila A este folosită pentru Jocuri interactive de programare stocarea valorii coordonate a părții stângi a imaginii câinelui PARCELA A + : IEȘIREA REM A CÂINElui ÎNAINTE DE A SUCCHIÎN ÎNAINTE VLIN , ATA A + PARCELA A + , VLIN , ATA A + VLIN , ATA A + CULOARE = : REM SETARE CULOAREA NEGRU PENTRU A ȘTERGE ELEMENTELE IMAGINIEI VLIN , ATA A VLIN , ATA A + VLIN , ATA A + PARCELA A + , CULOARE = : REM RETURN TO WHITE A = A + : REM MOVE DOG IMAGE DREAPTA UN PAS Deoarece lungimea imaginii câinelui este de blocuri, atunci când nasul câinelui ajunge la linia de sosire (X= ), marginea stângă a imaginii câinelui este la X= DACĂ A , PRIMIȚI XS: REM DACĂ X$ = "L" ATUNCI P = P + : REM CÂND APĂSAȚI "L" MĂSTAȚI LA DREAPTA DACĂ X$ = "J" ATUNCI P = P - : REM CÂND APĂSAȚI "J" STÂNGA Block (r): Se face o verificare pentru a vedea dacă aeronava a fost doborâtă sau a lovit linia de delimitare din partea dreaptă sau stângă a câmpului ecranului IF REEK ( + P) THEN : REM CHECK AVIONUL A FOST DOBAT Capitolul Block(r): Folosește o procedură în limbajul mașinii pentru a șterge zona din partea de jos a câmpului ecranului, apoi afișează valoarea numărului de puncte marcate în timpul jocului PROCEDURA REM PENTRU A ÎNCHEIA JOCUL DACĂ AVIONUL ESTE DOBAT REM VTAB : NTAB : CURSOR DE POZIȚIE REM PENTRU MESAJUL DE sfârșit de afișare CALL - : REM CURĂȚARE PARTEA DE BASĂ A ECRANULUI PRINT CHR$ ( ) ; REM BEEP TIPRIȚI "PLANESHOT AND " PRINT TIPRIȚI "TU ERAI SUB FOC ST - ; "COICILE, DAR EVITAȚI LOVIREA" Block(r): Utilizează setul de comenzi ROKE pentru a afișa avioane, caractere restrictive de două puncte și proiectile noi Un apel la procedura de organizare a afișării informațiilor în modul "rulare" pe ecranul de afișare este utilizat pentru a simula mișcarea unui flux de proiectile către aeronavă Cu această procedură, imaginea de pe ecran se deplasează în sus, în timp ce vechea imagine a aeronavei din linia de sus a ecranului dispare și este înlocuită cu una nouă ROQUUE + P, : AFIȘARE REM PE ECRAN SIMBOLUL "*" PENTRU A INDICA POZIȚIA AVIONULUI ROQUE : REM CONSTRUCȚIA BORGHEI STÂNGA A TERENULUI DE JOC ROQUE : REM CONSTRUCȚIA BORGINEI DREPTĂ A TERENULUI DE JOC ROQUE + INT ( * RND ( ) ), : REM ROQUE + INT ( * RND ( ) ), : REM SECOND SHELL IMAGING - APEL - : REM CT = CT + : REM CREȘTE CONTATORUL MISIUNII INAMULUI CU UNA GOTO Textul integral al programului este prezentat mai jos REM ***** PILOTAREA AERONAVEI SUB FOC ***** DE REM ***** BATERIE ANTIAEROPULȚII **** E R = : REM LA ÎNCEPUTUL IMAGINII AVIONULUI DE JOC ÎN MIJLOCUL RÂNDULUI DE SUS AL ECRANULUI ACASĂ : CURĂȚARE REM ECRAN X§ = "K" : AERONAVA ORIGINALĂ REM ESTE ÎNCĂ DACĂ PURĂ (- ) > ATUNCI OBȚINEȚI X$: REM DACĂ Jocuri interactive de programare SE APASĂ TASPA, VALOAREA CARACTERULUI CORESPONDENT ESTE ATRICATĂ VARIABILEI XS " dacă XS = "L" ATUNCI P = P - : REM CÂND APĂSAȚI "L" MĂSTAȚI LA DREAPTA dacă XS = "J" ATUNCI P = P - : REM CÂND APĂSAȚI "J" MUTAȚI LA STÂNGA IF REEK ( + P) THEN : REM ROQUUE + P, : AFIȘARE REM SIMBOLUL PE ECRAN PENTRU A PROIECTA POZIȚIA AERONAVEI ROQUE : REM CONSTRUCȚIA BORGHEI STÂNGA A TERENULUI DE JOC ROQUE : REM CONSTRUCȚIA BORGINEI DREPTĂ A TERENULUI DE JOC ROQUE + NT ( * RND ( ) ), : REM ROQUE + INT ( * RND ( ) ), : REM SECOND SHELL IMAGING APEL - : REM CT = CT + : CREȘTERE REM PENTRU UN CONTOR DE CONȚINUT A RACHETELOR INAMICE DEPRESE DE ȚINTĂ GOTO PROCEDURA REM PENTRU A ÎNCHEIA JOCUL DACĂ AVIONUL ESTE DOBAT REM VTAB : NTAB : CURSOR DE POZIȚIE REM PENTRU MESAJUL DE sfârșit de afișare CALL - : REM CURĂȚARE PARTEA DE BASĂ A ECRANULUI PRINT CHRS ( ) : REM IMPRIMĂ "PLAN JOS! " PRINT PRINT "AȚI ERAȚI SUB FOC"; CT- } "COCICĂ, DAR EVITAȚI LOVIREA" Sarcina Formarea imaginilor pe ecranul computerului folosind modul grafic de înaltă rezoluție Scopul programului dezvoltat: stăpânirea posibilităților de utilizare a afișajului într-un mod grafic similar pentru a construi diverse figuri și grafice ale funcțiilor Condiții prealabile specifice pentru o dezvoltare reușită: niciuna Note pentru programator: Sunt acoperite o serie de programe scurte pentru a demonstra tehnicile de programare atunci când utilizați un afișaj grafic de înaltă rezoluție Capitolul Una dintre cele mai atractive caracteristici ale computerelor Apple sunt instrumentele grafice care vă permit să creați diverse modele pe ecranul de afișare Deoarece computerele funcționează exclusiv cu numere, este nevoie de o modalitate de a descrie imagini arbitrare folosind numere În matematică, această metodă este cunoscută de mult timp și se numește descriere în sistemul de coordonate carteziene Un punct arbitrar este selectat pe o foaie de hârtie, care se numește originea coordonatelor Prin el sunt trasate două linii reciproc perpendiculare Poziția fiecărui punct este stabilită în raport cu puncte de coordonate În acest caz, linia orizontală care trece prin origine se numește axa X sau axa absciselor Linia verticală care trece prin origine se numește axa y, sau axa y (Fig ) În continuare, este selectată o unitate de lungime pentru măsurarea distanțelor Axa X este împărțită în segmente egale cu unitatea de lungime selectată, la dreapta și la stânga originii, puncte de diviziune Jocuri interactive de programare etichetat așa cum se arată în fig În același mod, diviziunile sunt aplicate pe axa y (Fig ) - -LR II - i j i î î - ! s II I O - * 'r i - - ~z - - - Orez Orez Poziția unui punct arbitrar P pe un grafic poate fi descrisă folosind o pereche de numere numite coordonate Prima coordonată, numită coordonată x, indică cât de departe este la stânga sau la dreapta originii Orez segment de la punctul ( , ) la punctul ( , ); segment de la punctul ( , ) la punctul ( , ); segment de la punctul ( , ) la punctul ( , ); segment de la punctul ( , ) la punctul ( , ) punctul de intersecție cu axa x al perpendicularei coborât la această axă de la punctul P A doua coordonată, numită coordonată y, indică cât de departe în sus sau în jos de origine s Nu Capitolul F coordonate este punctul de intersecție cu axa y a perpendicularei coborâte pe această axă din punctul P Pe fig punctul P are coordonatele ( , ), punctul Q are coordonatele ( ,- ), punctul R are coordonatele (- ,- ), iar punctul S are coordonatele ( , ) Coordonata x este întotdeauna specificată înaintea coordonatei y Sistemul de coordonate carteziene poate fi folosit pentru a descrie diferite imagini De exemplu, un dreptunghi Orez prezentată în fig poate fi construit folosind lista de segmente care o formează Cititorul este încurajat, folosind coordonatele carteziene, să descrie fiecare dintre figurile prezentate în Fig Ordinea acțiunilor prescrise de fiecare procedură este ambiguă și, prin urmare, poate diferi de cea de mai jos Corectitudinea cutare sau cutare procedeu poate fi verificată prin efectuarea construcțiilor prescrise de acesta și apoi comparând cifrele rezultate cu cele originale Pentru cifre, poza Jocuri interactive de programare prezentată în fig , pot fi utilizate următoarele proceduri: a) segment de la punctul (- ) la punctul ( ), segmentul de la punctul ( ) la punctul ( ), segmentul de la punctul ( ) la punctul (- ); b) segment de la punctul ( , ) la punctul (- ,- ), segment de la punctul ( ,- ) la punctul (- , ); c) segment de la punctul ( ) la punctul ( ), segmentul de la punctul ( J) la punctul ( ), segmentul de la punctul ( ) la punctul ( ), segmentul de la punctul ( ) la punctul ( ) , segment de la punctul ( ) la punctul ( ), segmentul de la punctul ( ) la punctul ( ), segmentul de la punctul ( )' la punctul ( ), segmentul de la punctul ( ) la punctul (- ) , segment de la punctul (- , ) la punctul (- , ), segment de la punctul (- , ) la punctul (- , ), segment de la punctul (- , ) la punctul (- , ), segment de la punctul (- , ) la punctul (- , ), un segment de la un punct (- , ) la un punct (- , ), un segment de la un punct (- , ) la un punct (- , ) Luați în considerare imaginea unui romb din fig și descrierea acesteia în coordonate carteziene Să fie necesar să se construiască o imagine a unui romb similar cu cel prezentat în figură, dar de două ori mai mare Acest lucru se poate face prin înmulțirea valorilor tuturor coordonatelor figurii originale cu (Fig ) Centrele ambelor diamante coincid cu originea Acum este necesar să mutați primul romb astfel încât centrul său să fie în punctul cu coordonatele ( , ) Acest lucru se realizează prin deplasarea fiecărui punct al figurii în direcția corespunzătoare, adică prin adăugarea numărului la valoarea fiecărei coordonate x și a numărului la Orez segment de la punctul ( , ) la punctul ( , ); un segment de la punctul ( , ) la punctul (- , ); un segment de la punctul (- , ) la punctul ( , - ); segment de la punctul ( , - ) la punctul ( , ) valoarea fiecărei coordonate a figurii reprezentate (Fig ) Acest mod de mutare a imaginii este implementat în programul următor, care vă permite să obțineți de imagini romb CALCULATOR Cititor recomandat rulați acest program ÎN* VP HGR HCOLOR= PENTRU X = TO PENTRU X = TO HPLOT X + ,Y LA X,Y + PASUL PASUL Capitolul HPLOT X,Y + TO X - ,Y HPLOT X - ,Y LA X,Y - HPLOT X,Y - TO X + Y URMĂTORUL Y URMĂTORUL X TIPARĂ "LUCRARE FINALĂ" Să explicăm scopul unor operatori ai acestui program Comanda HGP pune afișajul în modul grafic de înaltă rezoluție (vezi manualul de utilizare) segment de la punctul ( , ) la punctul ( , ); segment de la punctul ( , ) la punctul (- , )? un segment de la punctul (- , ) la punctul ( , - ); un segment de la punctul ( , - ) la punctul ( , ) calculatoare) Apoi, dacă este necesar, readuceți afișajul la modul redarea textului se numește comanda TEXT suficiente informații pentru a fi utilizate - indică comanda HCOLOR= Orez segment de la punctul ( , ) la punctul ( , ); segment de la punctul ( , ) la punctul (- , ); segment de la punctul (- , ) la punctul ( , l)j segment de la punctul ( , ) la punctul ( , ) privind utilizarea culorii albe la construirea unei imagini (desenarea liniilor de contur ale unui romb) Dacă s-ar da comanda HCOLOR= , imagistica ar fi efectuată Jocuri interactive de programare ar fi linii negre De obicei, o astfel de comandă este utilizată pentru a șterge o imagine de pe un ecran de afișare Când afișajul este în modul grafic de înaltă rezoluție, cea mai frecvent utilizată instrucțiune este HPLOT, care are următoarele patru reprezentări: ) HPLOT A,B: pe ecran este afișat un punct la poziția cu coordonatele (A,B); ) HPLOT A,B TO C,D: se trasează un segment de dreaptă între puncte cu coordonatele (A,B) și (C,D); ) HPLOT TO C,D: este trasat un segment de linie între ultimul punct afișat pe ecran și punctul cu coordonatele (G,D) De exemplu, succesiunea de afirmații CPLOT CP PANA LA creează pe ecran o imagine a unui segment de linie care leagă puncte cu coordonatele ( , ) și ( , ); ) HPLOT A,B TO C,D TO E,F: pe ecran sunt desenate două segmente de linie: unul între puncte cu coordonate (A,B) și (C,D), iar celălalt între puncte cu coordonate (C) ,D) și (E,F) -oooooo OOOOO - ooooo ooooo - ooooo ooooo - ooooo ooooo G-I -oooo oooooh - Yu a ă Orez Dacă există de diamante în programul de imagistică, utilizați ultima formă a comenzii HPLOT, atunci textul acestui program poate fi scurtat prin înlocuirea liniilor - ale versiunii originale cu o linie ca HPLOT X + ,Y LA X,Y + LA X - ,Y LA X,Y - LA X + ,Y Urmărind cu atenție execuția programului în cauză, se poate observa o oarecare discrepanță între imaginile așteptate și cele reproduse Într-un program Capitolul F descrie procedura de construire a unei imagini cu de romburi, care ar trebui să fie amplasate în câmpul ecranului conform Fig , a În realitate, pe ecran apare o imagine, similară cu cea prezentată în Fig , b În plus, deși programul necesită desenarea diamantelor de la stânga la dreapta și de jos în sus, acestea sunt afișate pe ecran de la stânga la dreapta, dar de sus în jos Acest efect se datorează faptului că computerul setează originea coordonatelor pe ecranul de afișare utilizat în grafică modul grafic de înaltă rezoluție, în colțul din stânga sus În acest caz, axa x se desfășoară de-a lungul marginii de sus a câmpului ecranului, iar valoarea unității de scară (elementul de descompunere a câmpului de prezentare a imaginii) utilizată pentru a adresa pozițiile câmpului depinde de dimensiunea ecranului afișajului folosit Lățimea câmpului ecranului este de de unități Astfel, punctul, a cărui coordonată x este , apare aproximativ la mijloc între marginile din dreapta și din stânga ecranului Înălțimea dimensiunii ecranului este de de unități de scară }, iar valoarea zero a coordonatei corespunde punctelor "liniei" celei mai de sus, iar valoarea corespunde celei de jos Pe fig arată câteva puncte ale ecranului împărțit cu valorile coordonatelor corespunzătoare Descrierea imaginilor care urmează să fie reprezentate pe un ecran de afișare utilizat în modul grafic de înaltă rezoluție, la fel ca cea de mai sus X) Când afișajul este în modul grafic de înaltă rezoluție, o zonă este rezervată în partea de jos a câmpului ecranului pentru a găzdui patru linii de text Cu toate acestea, la construirea imaginilor, nu este exclusă posibilitatea utilizării întregului câmp al ecranului În acest caz, de unități de scară se potrivesc de-a lungul axei y Aplicarea acestui mod de operare este discutată mai jos Jocuri interactive de programare descrierea imaginilor pentru construcție în sistemul de coordonate carteziene (Fig ) Cititorul este sfătuit să scrie un program pentru construirea unei imagini a unei figuri simple pe ecran HGR HCOLOR = PLOT DE LA , LA , LA , LA , PLOT LA LA LA afișaj utilizat în modul grafic de înaltă rezoluție; desigur, această cifră ar trebui mai întâi desenată pe hârtie O imagine în mișcare pe un ecran de afișare poate fi obținută prin schimbarea rapidă a unei serii de imagini statice statice, efectul vizual rezultat creând iluzia de mișcare Această metodă de producere a imaginilor în mișcare este utilizată în film și televiziune Această soluție este implementată de următorul program: HGR ON PENTRU I = LA HCOLOR = HPLOT I - , TO I + , HPLOT I - , TO I + , HCOLOR = HPLOT I - , TO I + , HPLOT I - , TO I + , URMĂTORUL I TIPARĂ "LUCRARE FINALĂ" În timpul execuției acestui program, pe ecran se formează o imagine, asemănătoare cu litera "X" în contur, apoi este ștearsă și reprodusă din nou, dar deja ușor deplasată la dreapta Procesul se repetă ciclic, creând pentru observator iluzia de mișcare a imaginii literei "X" pe câmpul ecranului Operatorii situati in liniile - servesc la formarea acestei imagini, si operatorii Capitolul în liniile - - pentru a-l șterge (ștergerea se realizează prin reformarea imaginii folosind negru) Scalarea imaginii de pe ecranul de afișare Lăsați pe ecranul computerului să fie afișate grafic datele date în tabel Utilizați abscisa (axa x) pentru a indica valoarea razei orbitei planetelor Tabelul Raza orbitei planetei, milioane de mile Perioada orbitală, ani Mercur , , Venus , , Teren , , Marte , , Jupiter , , în milioane de mile Deoarece cea mai mică dintre valorile razei enumerate este de de milioane de mile, iar cea mai mare este de , de milioane de mile, este firesc când trasăm graficul să ne limităm la modificări ale valorilor coordonatei x din interval a Aproximativ i - Grădina Zoologică coordonatele mașinii i -h - - - О Grădina Zoologică Milioane de mile Orez - de milioane de mile (Fig , a} Graficul este mai convenabil de citit dacă diviziunile (semnele de scară) sunt aplicate pe axa absciselor la fiecare de milioane de mile și valorile corespunzătoare sunt indicate (Fig , ) Jocuri interactive de programare Să aruncăm o privire mai atentă asupra procesului de construire a unei imagini a axei absciselor și de aplicare a etichetelor atunci când utilizați afișajul în modul grafic de înaltă rezoluție În acest caz, toate elementele de descompunere (unități de scară) ale câmpului ecranului sunt descrise prin coordonatele "mașinii", ale căror valori de-a lungul axei x variază între - În consecință, milion de mile corespunde la / de unități motor de elemente de descompunere (Fig , c) Rețineți că conversia valorii absciselor, exprimată în milioane de mile, în valoarea în unități de mașină se realizează prin înmulțirea primei valori cu / De exemplu, o distanță de de milioane de mile corespunde unei valori de abscisă egală cu X X / = , unități de motor sau, rotunjită la cel mai apropiat număr întreg, obținem o valoare aproximativă de O astfel de conversie la scară se exprimă ușor prin formula x) X = M " / unde X este valoarea abscisei, exprimată în unități de mașină (elemente de descompunere) ale ecranului de afișare, iar M este valoarea aceleiași abscise în milioane de mile Această formulă este folosită de multe ori în programele ulterioare, iar repetarea ei în textul programului ar fi cel puțin plictisitoare Din fericire, software-ul Applesoft oferă utilizatorului o soluție ușoară la astfel de probleme Declarația DEF FN permite programatorului să-și declare propriile funcții, a căror utilizare mai târziu în codul programului nu este diferită de apelarea așa-numitelor funcții încorporate (de exemplu, SQR, SIN ABS etc ) Cu ajutorul unui operator DEF FN DB(X) = "X SAU DEF FN DB(T) = *T descrie funcția care este accesată folosind funcția DB Variabila X în primul caz și variabila T în al doilea sunt numite parametrul formal al funcției DB Prima declarație dată poate fi "citită", de exemplu, după cum urmează: "La calcularea funcției DB X) Comanda HPLOT, utilizată când afișajul este în modul grafic de înaltă rezoluție, convertește automat valoarea reală a coordonatei într-un număr întreg folosind așa-numita funcție încorporată INT Totuși, graficul este mai precis dacă utilizați operatorul X=M* / + în locul operatorului X==M^ / , deoarece în primul caz rotunjirea se realizează în timpul conversiei, în timp ce în al doilea caz, partea fracționată este aruncată în timpul conversiei Capitolul valoarea arbitrară a argumentului (să-i spunem X)' valoarea funcției devine de două ori valoarea argumentului" A doua afirmație poate fi interpretată astfel: "Când funcția DB evaluează o valoare arbitrară a argumentului (să-i spunem T), valoarea funcției devine de două ori valoarea argumentului" După ce funcția este declarată, aceasta poate fi apelată oriunde în program, de exemplu: A = FN DB( ) VDC FN DB( ) - C = FN DB(A) Pe linia , funcția DB( ) este evaluată și apoi atribuită variabilei A Pe linia , valoarea este atribuită variabilei B Pe linia , valoarea variabilei A este înmulțită cu și rezultatul este atribuit la variabila C Pentru o cunoaștere mai detaliată a capabilităților operatorului DEF, vă rugăm să consultați ''Apple II BASIC Language Reference' } Remarcăm doar că înainte de a apela fiecare funcție utilizată în program, aceasta trebuie descrisă în instrucțiunea DEF În programul în curs de dezvoltare, funcția FN X este utilizată pentru a converti milioane de mile de distanță parcursă în valorile coordonatelor X exprimate în unități de mașină: DEF FN X(M)=M * / Această declarație face parte din programul scurt de mai jos, care trasează și etichetează axa x pe ecranul de afișare DEF FN X(M) = M * / : FUNCȚIA REM PENTRU CONVERSIE DE MILIOARE DE MILE DISTANTE LA VALORI X COORDONATE MAȘINĂ HGR : REM SETAREA MODULUI GRAFIC LA REZOLUȚIE ÎNALTĂ HCULOARE = : CULOARE REM ALB HPLOT DE LA , LA , : REM Plot X-AXIS PENTRU T = LA PASUL : MARCAREA AXEI REM LA FIECARE MILIOANE DE MILE HPLOT FN X(T), LA FN X(T), : REM Etichetare unică URMĂTORUL T Note: În programul de mai sus, axa x este plasată în partea de jos a câmpului ecranului și are o coordonată y mașină egal cu elemente de descompunere (de-a lungul câmpului vertical al ecranului) Vezi și suplimentul "O descriere informală a elementelor de bază ale limbajului de programare BASIC Apple II" de la sfârșitul cărții - Ed Jocuri interactive de programare Etichetele aplicate pe axa x sunt segmente de linie verticale cu o înălțime de elemente de expansiune (valorile coordonatelor acestor elemente sunt - ) Puteți folosi etichete de alte dimensiuni Acum trebuie să luăm în considerare construcția imaginii axei y Această axă este folosită pentru a indica valorile perioadei de rotație a planetelor Deoarece perioada de revoluție a corpurilor cerești date nu depășește intervalul de valori de la , (pentru Mercur) la , (pentru Jupiter) ani, pare oportun să se utilizeze întreaga parte a axei y reprodusă pe ecran / provocând diviziuni pentru valorile perioadei - ani, O ț - - \° /- - - &- - B ~ Ani / Coordonatele câmpului s- - - - - o- o- - - Orez Orez Orez relevante b an (Fig ) (etichete) la intervale, Ca și în cazul construcției axei x, citirile de-a lungul axei y trebuie exprimate în unități de mașină (elemente ale expansiunii verticale) Pe fig arată corespondența valorilor perioadei de revoluție a planetelor cu coordonatele mașinii Întrucât de elemente de descompunere se încadrează vertical pe câmpul ecranului (ceea ce corespunde unei perioade de circulație de ani), intervalul pe axa y egal cu an corespunde la / unități de mașină La prima vedere, pare posibil să se exprime funcția de scalare ca Y = YR* / Pentru a converti valoarea perioadei de revoluție, exprimată în ani, în valorile coordonatelor mașinii de-a lungul axei y Totuși, această formă de înregistrare a funcției de scalare ar fi acceptabilă dacă citirea ordonatei mașinii (numărând de-a lungul axei y) ar fi efectuată de la marginea inferioară a câmpului ecranului la cea superioară, așa cum Capitolul prezentată în fig În realitate, nu este așa Prin urmare, funcția de scalare necesară ar trebui să arate astfel: Y = - YR * / Cititorul este încurajat să încerce să scrie un program pentru construirea unei imagini a axei y pe ecran cu semne aplicate Dacă aveți dificultăți, vă puteți referi la textul unui astfel de program, prezentat mai jos: DEF FN Y(R) = - YR * / : FUNCȚIA REM PENTRU CONVERȚIA PERIOADAI ÎN ANI ÎN VALORI CU COORDONATE Y MAȘINĂ HPLOT , LA , : REM Plot Y-AXIS PENTRU YR = APOI : REM MARK Y-AXIS DUPĂ AN HPLOT , FN Y(YR) LA , FN Y(YR): REM MARC SINGUR PE AXA Y ANUL URMĂTOR Următoarea problemă este introducerea datelor inițiale în memoria computerului Cea mai simplă soluție este: DIM RD( ) : REM RD(I) - RAZA ORBITĂ A PLANETEI I DIM PR( ) : REM PR(I) - PERIOADA ORIGINALA A PLANETEI I-ST RD( ) = :PR( ) = : DATE REM PENTRU MERCUR RD(l) = , :PR( ) = : DATE REM PENTRU VENUS RD( ) = :PR( ) = : DATE REM PENTRU SOL RD( ) = , :PR( ) = , : DATE REM PENTRU MARTE RD( ) = , :PR( ) = , : DATE REM PENTRU JUPITER - Pentru a reprezenta un punct pe un grafic, este suficient să folosiți funcțiile definite anterior în operatorul formularului HPLOT FN X (RD( )), FN Y(PR( )) Pentru a reprezenta punctele care reprezintă toate cele șase planete pe un grafic, repetați acești pași într-o buclă FOR URMĂTORUL Cititorul este încurajat să alcătuiască singur această procedură FN X(RD( D FN Y(PR( ))> •• FN X (RD( )) L FN Y(PR( )) FNX(RD( )h FNY(PR( )) FNX(RD( )| + , FN Y{PR( ) Orez FN X (RD( )), FN Y(PR( )| + Graficul poate fi făcut mai vizual dacă poziția fiecărui punct reprodus este marcată cu o cruce mică, prezentată în Fig , Cititorul ar trebui să încerce Jocuri interactive de programare modificați programul conform acestei dorințe Dacă aveți dificultăți, puteți consulta fragmentul de mai jos PENTRU I = LA : FORMAREA PUNCTULUI DE DATE REM HPLOT FN X(RD(I)) - , FN Y(PR(I)) APOI FN X(RD(I)) + , FN Y(PR(I)):REM IMAGINAREA CRUCE PENTRU FIECARE PUNCT DE DATE HPLOT FN X(RD(I)), FN Y(PR(I)) - LA FN X(RD(I)), FN Y(PR(I)) + URMĂTORUL I Deci, complet, fragment cu fragment, se ia în considerare întregul program pentru construirea unui grafic simplu pe ecranul computerului Mai jos este textul acestui program DEFFN X(M) = M* / : FUNCȚIA REM PENTRU CONVERȚIA DISTANȚEI ÎN MILIOANE DE MILE ÎN VALORI X COORDONATE MAȘINĂ HGR:REM SETAREA MODULUI GRAFIC LA REZOLUȚIE ÎNALTĂ HCOLOR= :REM CULOARE ALB HPLOT , LA , : REM Plot X-AXIS PENTRU T = LA PASUL : REM MARCARE LA FIECARE DE MILIOANE DE MILE HPLOT FN X(T), LA FN X(T), : REM Urmatorul T DEF FN Y(YR) = - YR * / : FUNCȚIA REM PENTRU CONVERȚIA PERIOADAI ÎN ANI ÎN VALORI CU COORDONATE Y MAȘINĂ HPLOT , LA , : REM Plot Y-AXIS PENTRU YR = APOI : REM MARK Y-AXIS DUPĂ AN HPLOT , FN Y(YR) LA , FN Y (YR): REM UNIC MARK PE AXA Y ANUL URMĂTOR DIM RD( ): REM RD(I) - RAZA ORBITĂ A PLANETEI DIM PR( ):REM PR(I) - PERIOADA ORIGINALĂ A PLANETEI RD( ) = :PR( ) = : DATE REM PENTRU MERCURY RD( ) = , :PR( ) = : DATE REM PENTRU VENUS RD( ) = :PR( ) = : DATE REM PENTRU Pământ RD( ) = , :PR( ) = , : DATE REM PENTRU MARTE RD( ) = , :PR( ) = , : DATE REM PENTRU JUPITER PENTRU I = LA : DATE REM CONFORMARE PUNCT HPLOT FN X(RD(I)) - , FN Y(PR(I)) TO FN X(RD(I)) + , FN Y(PR(I)):REM IMAGINAREA O CRUCE PENTRU FIECARE PUNCT DE DATE HPLOT FN X(RD(I)), FN Y(PR(I)) - LA FN X(RD(I)), FNY(PR(I)) + APOI EU a treia lege a lui Kepler Johannes Kepler ( - ) a fost primul care a formulat trei legi ale mișcării corpurilor cerești (Problema ) Conform celei de-a treia legi a lui Kepler, planetele cu orbită circulară au o perioadă orbitală Glavd o este descris prin formula p \u d l * Kyaz, unde P este perioada de revoluție, R este raza orbitei și D' este o constantă Deoarece valoarea lui K este aceeași pentru toate planetele, valoarea sa poate fi determinată folosind datele pentru orice planetă De exemplu, luând în considerare mișcarea Pământului, găsim =D>K( ) =D*K =K* Prin urmare, a treia lege a lui Kepler poate fi exprimată printr-o dependență funcțională a formei R- , */# Acum rămâne doar să suplimentăm programul anterior cu o procedură de construire a unui grafic al funcției obținute pentru a afla cât de mult este de acord a treia lege a lui Kepler cu datele obținute în urma măsurătorilor astronomice Computerul nu are capacitatea de a construi o imagine precisă a liniilor curbe pe ecranul de afișare Când apare o astfel de nevoie, o linie întreruptă este construită din multe segmente de linie mici, astfel încât linia rezultată să pară aproape netedă La construirea unui grafic al funcției P = ^ = , * QYa(r), este suficient să folosiți aproximativ de segmente pentru a obține o imagine acceptabilă Următoarea este secvența de acțiuni necesare pentru a adăuga această curbă la graficul obținut anterior, Începeți construcția în punctul cu coordonatele ( , ) Atribuirea secvenţială a valorilor de la la variabilei R cu un pas de : a) se calculează valoarea lui P= , *K^ ; b) construiți un segment de dreaptă care leagă punctul curent cu punctul având coordonatele (R,P) Secvența corespunzătoare de operatori din BASIC este HPLOT FN X( ), FN Y( ): REM ÎNCEPUTUL CURBEI LA PUNCT CU COORDONATE ( , ) PENTRU R = LA PASUL : REM P = * SQR (R * R -sR): REM HPLOT LA FN X(R), FN Y(P)i REM URMĂTORUL R Rețineți că funcțiile de scalare FN X și FN Y discutate mai sus sunt încă potrivite pentru conversie coordonatele mașinii Jocuri interactive de programare valorile coordonatelor, exprimate în mile și ani, în valorile coordonatelor mașinii în elemente de descompunere (unități de mașină) Cititorul este sfătuit să adauge declarații corespunzătoare la programul în cauză și să verifice acest lucru Programul ar trebui să funcționeze aproape perfect Cu toate acestea, atunci când se analizează rezultatele implementării sale, se mai pot găsi ■ unele inexactități Curba nu trece exact prin toate punctele trasate, deși abaterile sunt relativ mici Acest lucru se poate datora erorilor de rotunjire sau pentru că op-biții planetelor sunt de fapt eliptici în loc de rotunji govoy În orice caz, magnitudinea erorii este suficient de mică pentru a fi neglijată (O excepție este, de exemplu, cazul utilizării similare date pentru trasarea unui curs Fig nave spațiale, când astfel de erori nu pot fi neglijate ) La sfârșitul procedurii de trasare, pe ecran apare mesajul de eroare "EROARE CANTITATE ILEGALĂ" Cauza erorii este ușor de înțeles La ?= OO, perioada de circulaţie calculată în conformitate cu legea a treia a lui Kepler este P \u d , * / \u d , Cu toate acestea, se află în afara intervalului posibilelor valori ale coordonatei y afișate pe ecran: această valoare nu se încadrează în intervalul - ani Această inexactitate poate fi corectată prin creșterea intervalului de valori y afișate la , , adică prin schimbarea corespunzător a liniei de program DEF FN Y(YR)=Iil Pentru o idee mai clară a modului de modificare a acestui operator, vezi Fig sau din nou reveniți la descrierea funcției de zoom FNY(YR) Exercițiu: Deoarece a treia lege a lui Kepler pare a fi destul de corectă, cititorul poate folosi această lege ca un exercițiu pentru a calcula perioadele orbitale ale lui Saturn, Uranus, Neptun și Pluto pe baza următoarelor date: Capitolul Raza planetei Perioada de orbită Saturn Uranus Neptun Pluto , - , - , - , - Răspuns: De fapt, valorile perioadelor de revoluție ale planetelor observate de astronomi sunt: Saturn are ani, Uranus are ani, Neptun are ani, iar Pluto are ani (Notă: orbita lui Pluto este o elipsă foarte alungită ) Exemple de programe care utilizează afișajul în modul grafic de înaltă rezoluție Muște care se urmăresc unul pe altul Să presupunem că există patru muște situate la colțurile unui pătrat Lăsați, începând mișcarea, fiecare să se grăbească către cel vecin, a cărui alegere este determinată de cerință prin controlul zborului muștelor în sens invers acelor de ceasornic, așa cum se arată în fig Este necesar să se realizeze un program care să reproducă pe ecranul de afișare imaginea traseelor de zbor ale muștelor Acest program folosește așa-numitul mod grafic de înaltă rezoluție în format complet n spațiu pentru patru rânduri de text În modul grafic complet, acest spațiu din partea de jos a câmpului ecranului este folosit și pentru redarea imaginilor, iar valorile coordonatelor y pot varia între - Folosind acest program opțional În acest mod, prescurtat ca HGR , întregul câmp al ecranului disponibil computerului este folosit pentru a construi o imagine Jocuri interactive de programare Peisajul rural se dovedește adesea a fi destul de la îndemână Comutarea afișajului în modul grafic format complet se realizează folosind comanda ROKE- Pe fig Figura prezintă sistemul de coordonate utilizat pentru a reprezenta traseele de zbor ale muștelor și corespondența acestuia cu coordonatele mașinii al -lea - DESPRE DESPRE - O I Orez Textul programului trebuie să înceapă cu o descriere a funcției de scalare pentru coordonatele x și y selectate Cititorul este încurajat să scrie singur o astfel de descriere, folosind Fig În caz de dificultate, vă puteți referi la rândurile și din programul , plasate în anexă La executarea programului, poziția fiecărei muște este monitorizată De fapt, este necesar să se cunoască nu numai poziția actuală a fiecărei muște, ci și următoarea ei poziție Patru variabile indexate sunt convenabile în acest scop: DIM X( ), Y( ): REM CURRENT X ȘI Y COORDONATE POZIȚIA ZBURĂ DIM NX( ), NY( ): REM FLY POZIȚIA X ȘI Y COORDONATELE URMĂTOR Rețineți că în Programul , prin intermediul DIM X( ), Y( ) tablouri de cinci elemente fiecare sunt rezervate pentru aceste informații, în timp ce s-ar aștepta să se utilizeze Capitolul o tablouri cu elemente Motivul pentru aceasta va deveni clar puțin mai târziu Poziția inițială a fiecăreia dintre cele patru muște este dată după cum urmează: X( ) = - :Y(l) = - : REM COORDONATE INITIAL REGULAMENTUL PRIMULUI ZBOR X( ) = :Y( ) = - : REM COORDONATE ALE INIȚIALĂ A -A DISPOZIȚII DE ZBOR X( ) = :Y( ) = : COORDONATE REM START A -A DISPOZIȚII DE ZBOR X( ) = - :Y( ) = : COORDONATE REM START REGULAMENTUL AL -lea ZBURĂ În acest caz, muștele sunt numerotate în sens invers acelor de ceasornic, prima fiind în colțul din stânga jos al ecranului Luați în considerare mișcarea zbura Zboară spre zbura Pentru a ajunge la zbura , zbura trebuie să se miște astfel încât să-și schimbe coordonatele x cu X( )-X( ) și coordonata y cu Y( ) - Y( ), deoarece X( ) = X( ) + (X( )-X( )), Y( ) = Y( ) + (Y( )-Y( )) Dar în timp ce fly zboară către fly , acesta din urmă se mișcă și el, iar dacă fly se deplasează fără a schimba direcția în colțul din dreapta jos al pătratului original, atunci când apare în acest colț, fly îl va fi părăsit deja Astfel, fiecare muscă trebuie să se îndrepte spre ținta sa, schimbând constant direcția de mișcare Calculați valorile coordonatelor următoarei poziții a zborului după o scurtă perioadă de timp, după cum urmează: NX ( ) \u d X ( ) + , * (X ( ) - X ( )), NX ( ) \u d Y ( ) + , * (Y ( ) - Y ( ) ) Acum putem reprezenta primul segment al traseului de zbor al zburei : HPLOT X(l), Y(l) LA NX( ), NY( l) Implementarea procedurii avute în vedere pentru descrierea zborului fiecăreia dintre cele patru muște se realizează prin ciclul PENTRU I = LA : CICLU DE CALCUL AL TRAIECTORILOR ZBORULUI NX(I) = X(I) + * (X(I + ) - X(I)) NY(I) = Y(I) + * (Y(l + ) - Y( )) URMĂTORUL I PENTRU I = LA : CICLU DE GENERARE A TRAIEI DE ZBOR REM FLY Jocuri în programare interactivă HPLOT FN X(X(I)), FN Y (Y(I)) LA FN X(NX(I)), FN Y(NY(I)) X(I) = NX(I):Y(I) = NY(I): SCHIMBAREA POZIȚIEI DE ZBURĂ REM URMĂTORUL I În fragmentul de program de mai sus, rețineți următoarele: Cu valoarea parametrului de buclă = , instrucțiunile din rândurile și arată ca NX ( ) \u d X ( ) + , * (X ( ) - X ( )), NY ( ) \u d Y ( ) + , * (Y ( ) - Y ( ) ) Cu toate acestea, în acest caz, condițiile problemei necesită utilizarea formulelor NX ( ) = X ( ) + , * (X ( ) - X ( )), NY ( ) = Y ( ) + , * (Y ( ) - Y ( ) ) Pentru a satisface această cerință, în primul rând, este necesară valoarea parametrului I al buclei FOR NEXT se modifică numai în intervalul - și, în al doilea rând, operatorii care implementează cele două formule de mai sus, se execută după finalizarea buclei specificate Cu toate acestea, o soluție mai simplă și mai elegantă este obținută prin includerea următoarei linii unice în textul programului înainte de bucla principală: X( ) = X( ): Y( ) = Y(l): OPERATORI REM SIMPLIFICARE STRUCTURA PRINCIPALA FOR ^ NEXT LOOP La sfârșitul procedurii luate în considerare, valorile coordonatelor următoarei poziții a muștelor sunt atribuite variabilelor Orez atribuite pentru a stoca valorile coordonatelor curente Această tehnică vă permite să efectuați această procedură din nou și din nou, simulând mișcarea muștelor Capitolul Cititorul ar trebui să încerce să finalizeze singur programul Dacă aveți dificultăți, vă puteți referi la programul , plasat în anexă Pe fig arată imaginea formată pe ecranul de afișare la executarea acestui program Formarea unui model pe ecranul de afișare Două mici modificări ale programului discutat mai sus fac posibilă obținerea pe ecranul de afișare a imaginii prezentate în Fig Este puțin probabil ca modelul să aibă vreo aplicație practică, dar face o impresie bună Să aruncăm o privire la modificările aduse Programului care ne permit să creăm un model similar pe ecran Este necesar să se prelungească segmentul unei linii drepte care determină mărimea deplasării discrete a muștei cu fiecare repetare ulterioară a ciclului de mișcare a acesteia Liniile și din programul trebuie înlocuite cu linii NX(I) = X(I) + * (X(I + ) - X(I)) NY(I) = Y(I) + * (Y(I + ) - Y(I)) Atunci când construiți pe ecran fiecare segment corespunzător mișcării unei muscă, este necesar să-l continuați până în punctul în care se află în prezent musca, care este "gonită" de aceasta Acest lucru se realizează prin înlocuirea liniei a programului cu linia HPLOT FN X(X( )), FN Y(Y(I)) LA FN X(X(I + )), FN Y(Y(I + )) Cititorul ar trebui să încerce să implementeze pe cont propriu modificările descrise la programul De asemenea, puteți încerca să formați alte modele pe ecran De exemplu, imaginea traiectoriilor a trei muște care încearcă să se ajungă din urmă, pornind de la vârfurile unui triunghi, pare interesantă CATEVA RECOMANDARI PENTRU SCRIEREA SI DEBUGAREA PROGRAMELOR Documentația programului Această secțiune ar trebui să fie intitulată "Înainte de a începe să lucrați la program, după ce îl terminați și în timp ce lucrați la el" Adesea, documentarea unui program este înțeleasă ca o descriere a acestuia în scopul stocării acestuia sub formă de fișier, precum și pentru a facilita înțelegerea acestuia de către viitorii utilizatori De fapt, documentarea unui program poate fi foarte utilă în procesul de scriere și depanare a acestuia Prima parte a documentării unui program este o descriere a ceea ce face, ce input are nevoie și care este rezultatul acestuia Dacă rezultatele așteptate ale programului nu sunt banale sub formă de prezentare (de exemplu, acestea sunt grafice și imagini relativ complexe pe ecranul de afișare, similar cu calendarul din problema ), atunci când începeți să lucrați la program, cu siguranță este recomandabil pentru a descrie forma de prezentare a rezultatelor A doua componentă a documentării unui program este o descriere a procesului prin care acesta își îndeplinește sarcina În toate cazurile care par extraordinare sau pot crea dificultăți în formularea soluțiilor propuse, algoritmul de soluție trebuie descris nu doar grafic, ci și verbal Este recomandat să completați acest lucru cu comentarii adecvate atunci când scrieți textul programului În final, este indicat să se realizeze o listă a denumirilor variabilelor utilizate, indicând scopul lor funcțional Organizarea programului Un program bine organizat este de obicei ușor de citit, mai ușor de depanat și necesită mai puțin timp de mașină decât un program prost organizat Cel mai important indicator al gradului de organizare a programului este minuțiozitatea dezvoltării algoritmului pentru funcționarea acestuia (prezența schemelor de algoritmi, descrierile acestora etc ), capitolul decât dezvoltarea sa trebuie să fie finalizată înainte de a începe efectiv să scrieți codul programului În plus, este util să cunoști câteva reguli de bază pentru structurarea unui program A Inițializare: pornire la rece și pornire la cald Luați în considerare următorul program care preia o listă cu numele studenților și o listă a scorurilor la teste, calculează un scor mediu de performanță (media aritmetică) și redă rezultatele sub forma unei liste cu numele studenților cu peste medie note DIM NM$( ),SC( ) ON T = INTRARE "SPECIFICAȚI NUMĂRUL DE STUDENTI" DACĂ N > ATUNCI TIPRIȚI "NUMĂRUL DE STUDENTI NU TREBUIE SĂ FIE MAI MULT DE "; GOTO PENTRU K = LA N PRINT: INTRODUCEȚI "INTRODUCEȚI NUMELE ELEVULUI"; NM$(K) INTRODUCEȚI "INTRODUCEȚI SCORUL EXAMENULUI"; SC(K) T = T + SC(K) URMĂTORUL K AVG=T/N TIPARĂ: TIPARĂ "MEDIA ARITMETICĂ A CADRELELOR EGALE"; MEDIA PRINT: PRINT "STUDENȚI CARE AU PASSAT, MEDII;" PENTRU K = LA N DACĂ SC(K) > = MEDIA APOI PRIMĂ NM$(K) URMĂTORUL K PRINT: PRINȚ "POATE FI INSCRISĂ O LISTĂ NOUĂ DE STUDENTI": GOTO ON Acest program poate fi folosit pentru a procesa o serie din listele de mai sus La prima pornire a programului, execuția acestuia începe cu operatorul din linia O astfel de execuție a programului poate fi numită în mod condiționat o pornire "la rece" Pentru a procesa listele ulterioare cu numele studenților și listele corespunzătoare de note de examen, controlul este transferat operatorului în linia software (prin operatorul transferului necondiționat de control GO TO SW pe linia ) Execuția similară (repetată) a programului poate fi numită condiționat un pornire "la cald" Termenii de pornire "la rece" și "la cald" a programului caracterizează etapa de lucru, numită inițializare Inițializarea inițială a programului ("pornire la rece"), printre altele, implică instrucțiuni care sunt executate o singură dată în timpul funcționării programului Acestea includ instrucțiuni precum DIM (descrierea matricelor), DEF FN (definirea funcțiilor), PI= definiția con- Câteva recomandări pentru scrierea și depanarea programelor stan), etc În reinițializarea programului (pornire "hot") sunt folosite instrucțiuni care trebuie executate de fiecare dată când programul este pornit Un exemplu ar fi operatorul din linia DAR Dacă nu se execută la repornirea programului, atunci suma tuturor notelor de examen din lista anterioară de studenți se va adăuga la suma notelor studenților din lista curentă (procesată) în curs de formare O atenție deosebită trebuie acordată începerii "fierbinte"* a programului Dacă, în exemplul de mai sus, verificarea performanței programului este efectuată pe baza rezultatului procesării primei liste de studenți, eroarea cauzată de omiterea operatorului în linia software în timpul pornirii repetate "la cald" a programului nu va fi detectat Într-un program bine structurat, o procedură de pornire la rece este urmată imediat de o procedură de pornire la cald B Rutine Majoritatea programatorilor preferă să aibă toate subrutinele utilizate într-un anumit program într-un singur loc Autorul le plasează la sfârșitul cărții Unii programatori le-au pus la început În orice caz, se recomandă să urmați aceeași regulă pentru plasarea subrutinelor, atunci acestea sunt ușor de găsit în program Deci, structura unui program bine organizat poate fi reprezentată de următoarea figură: Depanare program Cea mai importantă condiție pentru un proces de depanare de succes este un program bine planificat, organizat și documentat Pentru efortul depus ^ capitolul Cu efortul de a planifica un program, de a întocmi o diagramă a algoritmului său și de a scrie o listă de variabile care indică scopul lor funcțional, programatorul, de regulă, este recompensat cu un proces de depanare mai rapid Programele de depanare pot provoca nu numai sentimente de enervare și enervare, ci și sentimente de distracție și distracție Autorul unei cărți se simte întotdeauna un pic ca Sherlock Holmes când urmărește pas cu pas acele operațiuni care duc la erori Este important de reținut că un programator are un avantaj important față de un detectiv criminalist: un utilizator de computer își poate face "criminalii" să-și repete crimele "lăsând din nou amprente" și chiar întrerupându-se în procesul de comitere a unei infracțiuni Acest lucru poate fi util în special atunci când depanați programe mari Luați în considerare următorul program și prima etapă a depanării acestuia (prima verificare pentru a identifica posibilele T = O DAR INTRODUCEȚI "ENTER N"; N PENTRU K = LA N X \u d K * K T == T + X URMĂTORUL K PRINT "SUMA ESTE"; T ]ALERGA ENTER N SUMA ESTE erori)' Programul este conceput pentru a calcula suma formei + + + +N Cu N= , valoarea sumei dorite este + + + + = Totuși, rezultatul programului când N = este Prin urmare, programul are o eroare! Pentru a găsi această eroare, puteți include instrucțiuni pentru a imprima rezultate intermediare în program De exemplu, puteți utiliza operatorii PRINT "X = X PRINT "T="; T Dacă încercați să rulați un astfel de program T = INTRODUCEȚI "ENTER N"; N PENTRU K = LA N X \u d K * K PRINT "X = "; X T \u d T + XO PRINT "T="; T URMĂTORUL K TIPARĂ "SUMA E EGALĂ"; T Câteva sfaturi pentru scrierea și depanarea programelor atunci rezultatele muncii sale vor apărea în următoarea formă: ]ALERGA ENTER N X = T = XO = T = XO = T = XO = T = X = t = O XO = t = O XO = t = O XO = T = O XO = T = O XO = t = o SUMA ESTE O Rezultatul vă permite să localizați eroarea Într-adevăr, bucla FOR NEXT se execută corect, instrucțiunea de pe linia calculează corect R , iar singura sursă posibilă de eroare este instrucțiunea de pe linia care calculează valoarea lui T Analizând această instrucțiune, se poate observa că pe linia valoarea variabilei X =K*K este definit, iar pe linia când se calculează T \u d T + XO, este utilizată variabila XO p Rețineți că atunci când depanați programe care conțin multe instrucțiuni sau efectuează multe operații complexe, imprimarea rezultatelor intermediare se poate dovedi prea irațională și chiar costisitoare Fiabilitatea performanței programului Una dintre cele mai dificile probleme de programare este stabilirea faptului unei soluții corecte și fiabile a unei probleme care se realizează pe un computer Este tocmai dificultățile în confirmarea faptului fiabilității performanței cerute Pe linia , numele variabilei este alcătuit din litera "X" și numărul " ", iar pe rândul este alcătuit din literele "X" și " " În plus, trebuie amintit că atunci când programați un computer precum Apple în BASIC, valorile inițiale ale tuturor variabilelor utilizate în program sunt egale cu zero - Notă pett capitolul ? Natura programelor explică prezența în prezent a unui număr mare de programe care sunt puse la dispoziția utilizatorilor, dar nu îndeplinesc funcțiile așteptate de la aceștia Astfel de programe de obicei nu conțin erori care nu se fac simțite în timpul utilizării de rutină a programului, dar există erori care apar în circumstanțe extraordinare O cerință incontestabilă este o verificare amănunțită a programului dezvoltat Este necesar să vă asigurați că funcționarea fiecărei părți a programului decurge corect în toate condițiile posibile Asigurați-vă că rulați programul cu datele inițiale care pot fi folosite manual pentru calcule similare De exemplu, să presupunem că doriți să găsiți suma primelor de numere impare, și anume: + + + Pentru a face acest lucru, puteți utiliza următorul program: PENTRU k \u d apoi ON T \u d T + * K + NEXT K PRINT T ]RUN Rezultatul raportat ( ) pare plauzibil, dar este corect? Este dificil să verificați manual acest rezultat Cu toate acestea, vă putem recomanda verificarea corectitudinii programului folosind următoarea modificare a codului sursă: INTRODUCERE "INTRODUCE N"; N PENTRU K = LA N DAR T = T + * K + NEXT K PRINT T Acest program vă permite să adăugați primele N numere impare și, prin urmare, o astfel de sumă care este ușor de însumat manual Cu N= , suma necesară este + + + + = Să comparăm acest rezultat cu soluția aceleiași probleme pe un computer ]RUN ENTER N Rezultatul execuției programului este Există o eroare în program! Poate cititorul să-l găsească? Mai jos este textul corectat al ultimei versiuni a programului, precum și rezultatele lansării acestuia la N= și N= INTRODUCERE "INTRODUCE N"; N PENTRU K \u d TO N ON T \u d T + * K - Câteva sfaturi pentru scrierea și depanarea programelor URMĂTORUL K PRINT T □ RUN ENTER N □ RUN ENTER N Operatori PEEK și ROKE Mașinile de calcul conțin în memorie diverse programe scrise în limbajul mașinii Un număr de astfel de programe participă la execuția programului utilizator Pentru ca programatorul să poată conecta în mod independent programele scrise în limbajul mașinii și stocate în memoria computerului, sunt necesare mijloace de interconectare a unor astfel de module de programe pentru a asigura comunicațiile necesare între ele Una dintre modalitățile de "comunicare" a unor astfel de module este scrierea mesajelor pe RAM Un mesaj poate fi "lasat" în el cu operatorul POKE și "citit" cu funcția PEEK operator CLL Software-ul de calculator precum Apple permite, prin instrucțiunea CALL, utilizarea subrutinelor scrise în limbajul mașinii Deci instrucțiunea CALL determină execuția unei subrutine, care este o procedură din instrucțiunile mașinii și situată în zona de memorie cu adresa de pornire Manualul de referință de programare Applesoft II BASIC * descrie instrucțiunile CALL folosite pentru a apela subrutine similare care efectuați rutine tipice } Un programator care vorbește limbajul mașină își poate atașa subrutinele limbajului mașină la un program BASIC folosind instrucțiunile POKE și CALL Mai jos sunt două exemple de astfel de utilizare a acestor subrutine } De exemplu, folosind operatorul CALL- , mă pot referi la o subrutină care implementează, atunci când dispozitivul de redare a informațiilor (de exemplu, un afișaj) funcționează, procedura de trecere la linia următoare, - Notă ed capitolul SUNET LASER REM REM ROQUE :REM ROQUE ROQUE ROQUE , ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE : REM SET DE MAȘINĂ REM PENTRU I = LA Apelați PENTRU J = LA : URMĂTORUL J URMĂTORUL I REM TON AUDIO CU REM PITCH ROQUE : REM LINES - CONTIN OPERATORI TREBUIE COMANDE MAȘINI DIN RAM ROQUE ROQUE ROQUE , ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE ROQUE : REM CAPAT SET MOTOR REM R \u d + INT ( * RND (l)) ROQUE ,P: REM TON INITIAL APEL : REM P = + INT( * RND(l)): REM FOR I = TO R: NEXT I: REM TIME DELAY CICLU DE DURATA ALEATORII GOTO În fiecare dintre aceste programe, operatorii ROKE introduc o procedură în limbajul mașinii în memoria RAM a computerului Să explicăm scopul ambelor programe Câteva sfaturi pentru scrierea și depanarea programelor Program Sunet laser O subrutină scrisă în limbajul mașinii generează un semnal sonor similar cu cel folosit în jocurile "laser" Declarația CALL , pusă la dispoziția programatorului de către software-ul Applesoft, apelează o procedură compusă din instrucțiuni de mașină care generează un bip În acest program, sunetul se repetă de zece ori Programul Ton de sunet de înălțime arbitrară O subrutină scrisă în limbajul mașinii generează un ton audio a cărui înălțime este determinată de conținutul zonei RAM la adresa Această zonă de octet conține un întreg care aparține intervalului de valori - Dacă acest număr este , atunci este generat un ton continuu foarte scăzut Dacă numărul specificat este în intervalul - , atunci subrutina creează tonuri scurte înalte pentru valori mici ale numărului și tonuri lungi și joase pentru valori mari Instrucțiunea CALL este folosită pentru a apela o subrutină Programul de mai sus generează o serie de tonuri care sunt aleatorii ca compoziție și înălțime (folosind operatorul ROKE, care extrage un număr aleator în intervalul - din zona de memorie cu adresa ), iar pauzele dintre aceste serii sunt de asemenea aleatorii Greu de detectat erori tipice A Erori de rotunjire Cantitatea de memorie a computerului este limitată Acesta este unul dintre motivele pentru dimensiunea limitată a zonei de memorie oferită pentru a găzdui un singur număr Pe un computer Apple, fracția / poate fi reprezentată ca , sau , sau , Cu toate acestea, niciunul dintre aceste numere nu este exact egal cu / Această problemă este și mai complicată de faptul că în interiorul computerului, numerele sunt reprezentate în sistemul binar și, prin urmare, programatorul poate să nu fie conștient de faptul că un anumit număr este reprezentat oarecum incorect De exemplu, fracția / este reprezentată exact în zecimală ca , și în binar ca , Prin urmare, atunci când se calculează valoarea Fracției / într-un computer, este necesar să se rotunjească rezultatul capitolul Erorile de rotunjire pot crea anumite probleme Să luăm în considerare cele două programe de mai jos cu rezultatele corespunzătoare ale executării lor PENTRU K = LA de A \u d K * ( / K) PRINT "K = K;" k * ( /K) = NTAB JF A = APOI TIPRIAȚI "DA" DACĂ A ATUNCI APRIȚI "NU" URMĂTORUL K JRUN K \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d s K * ( / K) \u d DA K \u d k * ( / K) \u d DA K \u d K * ( / K) \u d DA K = K * ( / K) == DA K \u d K * ( / K) \u d DA K \u d K "( / K) \u d DA K - K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d P K * ( / K) \u d NR k \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d k * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K \u d k * ( / K) \u d DA K \u d k * ( / K) \u d DA K \u d K * ( / K) \u d DA K = K * ( /K) = NO K \u d K * ( / K) \u d DA K \u d K * ( / K) \u d DA K = K * ( /K) = NO PENTRU X = LA PASUL PENTRU TIPARARE X URMĂTOR X SFÂRȘIT / □ RUN Lucrul cu aceste programe poate fi un adevărat "coșmar" pentru utilizator În primul program, calculați Câteva recomandări pentru scrierea ȘI programele de depanare sunt valorile expresiei A*( /K) pentru A= , , , Aceste valori sunt afișate ca număr (ca rezultat al înmulțirii unui număr întreg cu reciproca acestuia) Totuși, programul prevede și ieșirea cuvântului "DA" dacă D*( /K) = , iar cuvântul "NU" în cazul opus Conform rezultatelor de mai sus ale rulării acestui program, cu K egal cu , și , este scos cuvântul "NU" Motivul pentru aceasta este apariția erorilor de rotunjire Să explicăm această afirmație printr-un exemplu de calcul al valorii expresiei *( / ) cu o precizie de până la opt cifre după virgulă În conformitate cu această condiție, / = , și * ( / )= , Prin urmare, * ( / )= ^= Același lucru se întâmplă atunci când se efectuează aritmetica binară operatii de catre calculator la determinarea valorii expresiilor *( / ), *( / ) si * ( / ) Cu toate acestea, se pune firesc întrebarea: de ce computerul scoate numărul ca rezultat al calculării expresiei * ( / )? Explicația acestui fapt trebuie căutată în caracteristicile procedurii de ieșire inițiate de operatorul PRINT și anume: această procedură realizează în mod independent anumite operații de rotunjire a datelor numerice de ieșire Cu toate acestea, rezultatele unei astfel de rotunjiri, după cum se poate observa din acest exemplu, sunt dificil de prezis, ceea ce, la rândul său, poate duce la consecințe neprevăzute Al doilea dintre programele luate în considerare este mai scurt și mai simplu în aparență, rezultatele așteptate ale activității sale sunt următoarele: Deci, executând o buclă FOR NEXT se termină înainte de a ieși numărul , care este limita superioară a valorilor parametrului buclei Din nou, ne confruntăm cu probleme cauzate de erorile de rotunjire Trebuie amintit că execuția operațiilor buclei FOR NEXT repetă atâta timp cât valoarea parametrului buclei este mai mică sau egală cu limita superioară De exemplu, rularea programului PENTRU până la = LA PASUL DAR PRINȚĂ LA LÂNĂ sfârșit capitolul RUN se oprește după / să aruncați moneda de ori, necesitând bucle R imbricate NEXT, poate fi limitat la aruncarea unei monede de ori, care este implementat de următorul program: DIM N ( ) : REM N (ST) - CONTATOR AL NUMĂRULUI DE ARURĂRI DE MONEDE DE ORI CU O PĂCĂTURĂ DE CAP ST ORĂ PENTRU T = LA PENTRU T = LA PENTRU T = LA PENTRU T = LA PENTRU T = LA capitolul Tb = T = T = T = PENTRU PENTRU PENTRU PENTRU ST - TI + T + TK + T + T + Tb + T + T + T H (CT) = H (CT) + NEXT : NEXT : ''ZZZ'T "Z URMĂTORUL: URMĂTORUL TIPAR: REM PENTRU CT = PRINTCT; " URMĂTORUL CT Sfârşit CĂ CĂ ALCĂ : URMĂTOR : URMĂTOR : URMĂTOR : URMĂTOR : URMĂTOR J SKIP LINIE LA : REM OUTPUT A REZULTATELOR YURL-urilor RETIRATE"; H (ST); "O SINGURA DATA" ZJRUN ORL ORL ORL ORL ORL ORL ORL ORL ORL ORL PICARĂ PICĂRĂ PICĂRĂ PICĂRĂ PICĂRĂ PICĂRĂ PICĂRĂ TIMP DE ORI De de ori De de ori De de ori De de ori De de ori De de ori DE ORI TIMP După rezolvarea unei probleme mai simple, puteți reveni din nou la rezolvarea problemei inițiale - aruncând o monedă de zece ori Lăsați cele de mai sus imbricate bucle FOR URMĂTOR oferă o descriere a aruncării de monede în nouă ori În ceea ce privește cele două rezultate posibile ale celei de-a zecelea aruncări a unei monede, pentru a o descrie, adăugăm mai multe afirmații în bucla cea mai profund imbricată DIM H( ) : REM H(CT) - CONTATOR AL NUMĂRULUI DE ARUNCARI DE TIGI CU O PIERDERE DE CAP ST ORĂ ON PENTRU T = LA PENTRU T = LA PENTRU TK = LA PENTRU Т = LA PENTRU Т = LA PENTRU Tb = LA PENTRU T = LA PENTRU T = LA PENTRU T = LA ST = TI + T + TK + T + T + Tb + T + T + T N(ST) = N(ST) + CT = CT + : REM NOW CT ESTE NUMĂRUL DE CAPE DACĂ A ZECEA ROLĂ ESTE UN CAP N(ST) = N(ST) + NEXT : NEXT : NEXT : NEXT : NEXT NEXT : NEXT : NEXT : NEXT PENTRU CT = LA : REZULTATE AFIȘARE REM Legile evenimentelor aleatorii PRINT ST;" ORL A RĂSAT ";N(ST);" O SINGURA DATA" NEXT ST sfârşitul ]ALERGA ORL A SCOAT O Oara ORL A SCADUT DE ORI ORL A SCADUT DE DE ORI ORL A SCADUT DE DE ORI ORL A SCOAT DE ORI ORL A SCADUT DE DE ORI ORL A SCOAT DE ORI ORL A SCADUT DE DE ORI ORL A SCADUT DE DE ORI ORL A SCADUT DE ORI ORL A SCOAT O Oara Acum puteți compara aceste date cu rezultatele obținute anterior prin modelare Rețineți că, deoarece din aruncări de ori ale unei monede de ori au căzut capete în cazuri, din aruncări de ori ar trebui să ne așteptăm să apară capete în ( / )*- = cazuri Metoda de calcul direct este foarte utilă, dar posibilitățile sale sunt limitate Astfel, rezultatele aruncării de monede de de ori similare sunt măsurate cu valoarea de , adică mai mult de un miliard, ceea ce este prea mult pentru a analiza probabilitatea unor posibile situații în acest fel Din acest motiv, metoda simulării și diverse metode teoretice sunt folosite mult mai des decât metoda de calcul direct Sarcini suplimentare Finalizați sarcina suplimentară prin calcul direct (vezi programul ) Finalizați sarcina suplimentară prin calcul direct Metode teoretice Să luăm mai întâi în considerare așa-numita metodă a triunghiului lui Pascal Următoarea problemă folosește o metodă teoretică diferită Mai întâi, să alcătuim un tabel triunghiular mare (Tabelul ), a cărui formă explică parțial numele acestei metode În acest tabel, al treilea rând reprezintă rezultatele aruncării unei monede de trei ori Există rezultate posibile aici: capitolul R R R Vulturi p p o vultur r o r vultur r o o vulturi sau r r vultur o r o vulturi sau vulturi oh oh vulturi din care într-un caz vulturul nu a căzut, în trei cazuri acesta a căzut doar o dată, în alte trei cazuri - de ori și într-un caz - de ori Este exact ceea ce descrie a treia linie a triunghiului lui Pascal Tabelul * Numărul de aruncări de monede Numărul de capete J Există o modalitate foarte rapidă de a calcula valorile elementelor triunghiului lui Pascal Rezervați o matrice DIM T( , ) pentru a stoca aceste articole Elementele din primul rând al triunghiului corespund variabilelor indexate T( , ), T(I, ) • T(I,I), unsprezece О О О ( , ) ( , ) ( , ) ( , ) ( , ) Astfel, variabila T(/,J) indică numărul de capete de capete J ori în /-fold coin toss Calculați valorile elementelor acestui tabel linie cu linie, începând cu primul: ( , )= :T( , )= Să presupunem acum că sunt determinate valorile elementelor din al treilea rând și este necesar să se calculeze valorile elementelor din al patrulea rând Să încercăm să găsim elementul T ( , ), adică descoperi Legile evenimentelor aleatorii fir, câte combinații diferite de capete care cad de două ori în aruncări de ori există Există două astfel de posibilități: fie la primele aruncări, capete apar de două ori, iar la a patra aruncare - cozi, fie la primele aruncări, capetele apar doar o dată și apoi din nou - la a patra aruncare Prin urmare, ( ) = ( ) + ( ) = + = Dacă Numărul de apariții a două Numărul de apariții a unui capete în aruncări de capete în aruncări Această tehnică este valabilă și pentru calcularea valorilor ( , ) și ( , ): ( , ) = ( , ) + ( , ) = + = , ( , ) = ( , ) + ( , ) = + = Există un singur caz în care capete nu apar niciodată, deci ( , ) = și un caz de capete la toate aruncările, deci ( , ) = L Acum, folosind tehnicile găsite, puteți obține valorile elementelor din al cincilea rând al tabelului: ( , )= ( , ) = ( , ) + ( , )^ + = T( ) = ( ) + ( ) = + = ( , ) = ( , ) + ( , ) = + = ( , ) = ( , )+ ( , ) == + = ( , )= Deci, dacă sunt cunoscute valorile elementelor din al -lea rând, atunci folosind metoda descrisă, este posibil să se determine valorile elementelor (I + ) ale rândului T(I + , ) = PENTRU J = LA I T(I + ,J) = T(I,J) + T(I,J - I) URMĂTORUL J T(I + , + ) = Cititorul este invitat să scrie un program pentru calcularea valorilor elementelor din rândurile - ale tabelului triunghiular al lui Pascal Programul poate fi verificat prin compararea elementelor liniei a zecea cu rezultate similare ale metodei de calcul direct (Dacă apar dificultăți, consultați programul ) capitolul Compararea predicțiilor teoretice cu rezultatele simulării Ultimul program al problemei luate în considerare este un program de reprezentare în două părți pentru compararea rezultatelor obținute prin calcule teoretice și metoda modelării statistice Cerințe pentru program: ) construirea unei histograme a rezultatelor calculării tuturor celor de rezultate posibile ale unei aruncări de monede de ori; valorile numerice ale acestor rezultate au fost obținute anterior și au următoarea formă: Numărul de capete aruncate de ori Număr de aruncări de ori G Notă: prezența datelor de mai sus ne permite să ne limităm doar la reprezentarea lor grafică sub formă de histogramă; ) simularea pe computerul a aruncărilor de monede de ori cu ieșirea rezultatelor sub forma unui grafic Notă: pentru a crea această parte a programului, este suficient să faceți mici modificări la programul (înlocuirea a de role de ori cu numărul ) și să o completați cu operatori de plotare Pentru acest program, ar trebui să luați în considerare utilizarea afișajului în modul de înaltă rezoluție Pe fig prezintă un exemplu de reprezentare histogramă în acest mod Conține perechi de linii: perechea de sus corespunde numărului de aruncări de ori dintr-un total de , care se termină doar cu cozi; următoarea pereche este numărul de aruncări de ori cu capete o singură dată și așa mai departe În fiecare pereche, linia groasă de jos arată rezultatele simulării, iar linia triplă de sus arată predicții teoretice Cel mai simplu mod este de a forma marginea stângă a unui astfel de grafic (axa y): HPLOT , LA , Legile evenimentelor aleatorii Marginea de jos (abscisa) este, de asemenea, formată simplu: HPLOT , LA , Pentru comoditatea citirii histogramei, diviziunile sunt trasate pe axa absciselor, "distanța" dintre două diviziuni adiacente este O (prima) diviziune poate fi aplicată folosind operatorul HPLOT LA și tot restul - folosind bucla FOR URMĂTORUL (Dacă există dificultăți în întocmirea unui program pentru formarea axelor absciselor și ordonatelor și aplicarea diviziunilor, trebuie folosite rândurile - din programul ) Pentru a construi barele histogramei, împărțim axa verticală (axa y) în segmente, așa cum se arată în Fig Rețineți că segmentul pentru afișarea capetelor I începe la punctul * și se termină la punctul * + Fiecare segment are linii, al căror scop este prezentat în fig Rezultatele teoretice obținute anterior pot fi incluse în program folosind următoarele afirmații: DIM TH( ) : REZULTATE CALCULUL REM TH( ) = TH( ) = TH( ) = Acum puteți reprezenta grafic rezultatele teoretice folosind bucla FOR URMĂTORUL PENTRU I = APOI HPLOT , * LA TH(I), * I capitolul HPLOT , * I + LA TH(I), * I + HPLOT , * I + LA TH(I), * I + NEXT I sau cu două bucle FOR NEXT (liniile - din programul ) Cititorul este încurajat să scrie toată această parte a programului și să verifice performanța acestuia (Dacă este necesar, consultați programul ) Oh, vulturi vultur vulturi vulturi vulturi vulturi vulturi vulturi d orlov vulturi de vulturi Orez Acum este necesar să descriem grafic rezultatele simulării A fost deja scris un program pentru a calcula rezultatele a de aruncări de monede de ori După câteva modificări minore, programul pentru rulouri de ori ia următoarea formă: PENTRU J = LA ;PROGRAM REM PENTRU TESTE ST = PENTRU = LA : REM ZECE ARUNCA CT = CT -INT( * RND(l) ): REM COIN TOSS CU ADĂUGAT DE LA VALOAREA CT PENTRU CAPITURI NEXT I EX(ST) = EX(ST) = : REM CREȘTE SUMA CORESPONDENȚĂ PENTRU URMĂTORUL J Pentru a diversifica oarecum observarea construcției histogramei pe ecranul de afișare, puteți forța programul să adauge următoarele rezultate ale aruncărilor de monede la graficul afișat imediat ce sunt primite Legile evenimentelor aleatorii Programul realizează acest lucru prin includerea buclei FOR de mai sus URMĂTORUL operator HPLOT EX(ST)? * ST + TO EX(ST), * ST + : REM Acum puteți încerca să compuneți întregul program, referindu-vă la programul din anexă dacă este necesar Rulați programul rezultat pe computer de mai multe ori și observați rezultatele Datele de simulare sunt de obicei oarecum diferite de valorile prezise teoretic Întrebare: Sunteți dispus să plătiți USD pentru un pariu de aruncare a monedei de ori dacă apare de exact ori și să primiți USD în caz contrar? Sarcină suplimentară Modificați programul pentru a efectua aruncări de monede de ori și modificați graficul care arată rezultatele simulării, astfel încât valoarea fiecărei diviziuni să crească de ori Apoi aspectul graficului va rămâne același În acest caz, se va putea observa că rezultatele simulării și predicțiile teoretice sunt mai asemănătoare între ele Cu cât numărul de încercări este mai mare, cu atât metoda de simulare este mai precisă Problema Calcularea factorilor Scopul programului dezvoltat: calcul factorial Această procedură este utilizată pe scară largă în probleme de teoria probabilităților și de statistică matematică Condiții preliminare specifice pentru o dezvoltare cu succes: familiaritatea cu soluția problemei Explicații pentru programator: pentru a rezolva această problemă, nu este necesar să ai un computer, este suficient să folosești un calculator obișnuit Această problemă este destul de simplă, poate fi rezolvată eficient folosind un calculator convențional, deși cititorul poate, desigur, să-și folosească computerul personal dacă dorește Dacă calculatorul are o cheie de calcul factorial, atunci cu ajutorul lui problema este rezolvată chiar mai ușor decât pe un computer Scopul acestei probleme este de a ajuta cititorul să înțeleagă unele dintre conceptele de bază ale teoriei probabilităților Să presupunem că există scaune în clasă care trebuie să găzduiască elevi Pentru comoditate, să notăm elevii ca A, B, C, D, E, F, G, H, I și J Necesar capitolul stabiliți câte opțiuni există pentru plasarea elevilor indicați pe scaune Primul elev, A, poate fi plasat pe orice scaun, deci există posibile locuri de plasare pentru el (Figura ) Pentru fiecare dintre cele opțiuni de plasare pentru prima Orez student, există scaune gratuite pentru studentul B, adică doar * = de opțiuni (Fig ) Cu oricare dintre aceste de opțiuni de cazare pentru primii doi studenți, studentul C are locuri libere, adică * * = de opțiuni Argumentând în continuare într-un mod similar, obținem că pentru fiecare plasament al studenților anteriori, există locuri libere pentru elevul D, pentru elevul E, pentru elevul F, pentru elevul G, pentru elevul H și pentru elevul I și în sfârșit, pentru elevul J, există un singur loc liber În consecință, numărul total de opțiuni de cazare pentru studenți pe scaune va fi de * * * * * * * * * =; = Acest număr se numește "factorial zece" și se notează cu ! Hhhhhhhhh Orez Acum, folosind această tehnică, puteți rezolva orice problemă similară, de exemplu, găsiți numărul de plasamente posibile a de elevi pe de scaune, pentru care este suficient să calculați factorialul corespunzător: ! = * * * * * * Cititorul este încurajat să scrie un program pentru calcularea AL pentru valorile lui N în intervalul - (dacă este necesar, puteți consulta programul , prezentat în anexă) Valorile acestor factori se dovedesc a fi destul de mari Factorial de ! depaseste milioane, iar valoarea este de ! este de aproximativ , * IO , adică o valoare care depășește capacitatea unui computer Apple de a reprezenta valori numerice Prin urmare, atunci când încercați să calculați valoarea ! Tu- Legile evenimentelor aleatorii scaune Necesită plasare pe ele pentru toți cei de participanți Orez un numărător de acest tip va genera un mesaj de eroare OVERFLOW Printre modelele existente de calculatoare, se poate găsi unul care vă permite să calculați valori de până la !, ceea ce corespunde cu aproximativ , * IO Valori de la ! și multe altele depășesc capacitățile de calcul ale calculatoarelor cunoscute de autor Exercițiu Sunt ~' în public găsiți numărul total de opțiuni posibile pentru de studenți Soluţie Să introducem convențiile elevilor care sunt în experiență: A, B, C, D, , S, T, U Studentul A poate ocupa oricare dintre cele de scaune În fiecare dintre cele de opțiuni de cazare pentru primul student vor fi de scaune goale pentru elevul B și așa mai departe Vor fi locuri libere pentru elevul U, întrucât au fost deja plasați elevi În acest caz, numărul total de opțiuni de cazare este de * * * * = = !/ ! Să luăm în considerare încă o problemă Să fie necesar să pictați un perete împărțit în pătrate, care sunt numerotate conform Fig Să presupunem că există o vopsea roșie, care este suficientă pentru a picta doar trei din cele nouă pătrate Câte modele diferite pot fi obținute acoperind trei pătrate cu vopsea? Începutul soluționării acestei probleme este similar cu cel de mai sus Pentru început, avem nouă opțiuni din care să alegem După pictarea oricăruia dintre pătratele selectate, rămân opt pătrate neumplute, ceea ce corespunde cu * = de opțiuni pentru pictarea a două pătrate În cele din urmă, vopseaua rămasă pe un pătrat poate fi cheltuită pe oricare dintre cele șapte pătrate nevopsite S-ar părea că există doar * * =* = opțiuni Totuși, să așteptăm cu concluziile! Să presupunem că, în rezolvarea acestei probleme de luni, pătratul numărul este mai întâi acoperit cu vopsea, apoi pătratul numărul și în final pătratul numărul (așa cum se arată în Figura ) Marți, pătratul numărul este pictat mai întâi, apoi pătratul numărul și, în sfârșit, pătratul numărul (după cum se arată în Figura ) Este ușor de observat că desenul rezultat este același, adică ordinea în care sunt completate pătratele nu contează Rețineți că oricare dintre modele poate fi obținut în șase moduri diferite, deoarece cele trei pătrate pot fi pictate în orice ordine Inițial, există trei opțiuni posibile După ce a pictat primul capitolul pătrat, mai sunt două opțiuni, după ce vopsiți două pătrate - singura modalitate de a acoperi ultimul pătrat cu vopsea Astfel, în loc de desene diferite, se poate obține doar / = / dacă i Orez О Hei Orez Un raționament similar este aplicabil în evaluarea posibilelor rezultate ale aruncării unei monede (Problema ) Să fie efectuate răsturnări de monede Numărul de combinații diferite obținute prin aruncare este = Este necesar să se determine numărul de astfel de aruncări, în fiecare dintre ele capetele cad de ori -a aruncare * a -a aruncare a -a aruncare a -a aruncare a -a aruncare a -a aruncare a -a aruncare a -a aruncare a -a aruncare '/O-a aruncare Orez În fiecare combinație, există zece "poziții" posibile pentru plasarea monedelor (Fig ) Apariția a patru capete în aceste poziții va fi considerată ca o problemă de colorare a patru din zece pătrate în roșu Apoi numărul dorit de combinații cu aruncări de monede Legile evenimentelor aleatorii în care capete cad de ori, este * ^ Exerciții Folosind metoda de mai sus, calculați rezultatele a aruncări de monede de ori Comparați aceste rezultate cu datele obținute în rezolvarea problemei Când joacă bridge, patru jucători primesc câte cărți fiecare Determinați numărul de opțiuni diferite pentru împărțirea a de cărți Când joacă poker, jucătorului i se împărtășesc cărți Este necesar să se găsească numărul de combinații posibile în distribuția lor Soluții Există de cărți pentru a completa un pachet de cărți! opțiuni posibile La împărțire, fiecare jucător primește cărți, adică sunt ! combinații posibile de cărți pentru fiecare jucător Deoarece există participanți în joc, numărul dorit poate fi determinat după cum urmează: ! ! ( !) ( !) ( !) ( !) - ( !)* > care este de aproximativ , *IO Imaginează-ți distribuirea a cărți jucătorului ca pictând cinci poziții Atunci îi corespunde numărul dorit de combinații diferite * * * * % g gQ> Problema Plimbări aleatorii unidimensionale Scopul programului dezvoltat este de a studia proprietățile statistice ale comportamentului obiectelor care se deplasează conform legilor aleatorii (În teoria probabilității, o astfel de mișcare este numită "mers aleatoriu" Teoria mersurilor aleatorii este utilizată în domenii de cunoaștere precum fizica, matematica, tehnologie, precum și în analiza modelelor de joc bazate pe utilizarea caracteristicilor de evenimente aleatorii ) Condiții preliminare specifice pentru o dezvoltare cu succes: familiaritatea cu soluția problemei (de dorit, dar nu obligatorie) Explicații pentru programator: această sarcină presupune dezvoltarea mai multor programe scurte capitolul În această problemă, luăm în considerare bazele uneia dintre cele mai interesante și importante secțiuni ale teoriei probabilității - teoria plimbărilor aleatorii Plimbările aleatorii sunt omniprezente Autorul cărții, care locuiește în Detroit în copilărie, a luat parte adesea la jocul pentru copii "plimbări aleatorii" Copiii au ieșit la plimbare pe străzile orașului și la fiecare intersecție, cu ajutorul unor monede de și cenți, au hotărât unde să meargă mai departe Dacă cădeau doi vulturi, mergeau drept, dacă două cozi se întorceau Dacă o monedă de cent a aterizat pe capete, iar o monedă de cinci cenți a aterizat pe cozi, ei se întorceau la stânga, dacă invers, la dreapta La următoarea intersecție s-a repetat procesul decizional În glumă, acest joc se numea "mersul bețivului" În , botanistul englez R Brown, examinând sporii de plante la microscop, a descoperit că aceștia se mișcă aleatoriu Această mișcare a fost numită mai târziu "Brownian" Prima explicație satisfăcătoare pentru acest fenomen a fost dată de A Einstein în Se dovedește că mișcarea descoperită a sporilor de plante, care are loc ca urmare a ciocnirilor cu moleculele de apă, precum și a procesului de aruncare a unei monede și a celor menționate plimbări în direcții arbitrare, pot fi descrise folosind teoria mersurilor aleatorii Zgomotul de fond auzit de la radiouri și televizoare este rezultatul unor procese fizice care au și caracterul de plimbări aleatorii O reprezentare vizuală a procesului de mers aleatoriu poate fi niște molecule lungi de polimer, constând din multe lanțuri numite monomeri Aceste lanțuri sunt similare cu segmentele de drum în plimbări aleatorii Acest tip de mers aleatoriu se numește mers ireversibil, deoarece monomerii dintr-o moleculă comună nu se pot intersecta (Fig ) Datorită acestei structuri complexe de monomeri care nu se intersectează în fiecare moleculă, cauciucul are o elasticitate ridicată Legile evenimentelor aleatorii Plimbările aleatorii pot avea loc în una, două, trei sau mai multe dimensiuni Mai jos luăm în considerare câteva experimente privind mersurile aleatoare unidimensionale în această problemă și plimbările aleatoare bidimensionale în problema Plimbările unidimensionale aleatorii pot fi reprezentate de procesul unui călător care se deplasează de-a lungul unui drum drept lung În funcție de rezultatul aruncării unei monede, el face un pas fie înainte, fie înapoi (Fig ) n - h i - - - Orez Experiența Pentru a înțelege mai bine ce sunt plimbările aleatorii, vom folosi un computer pentru a afișa grafice ale unor plimbări aleatorii Ca și în multe alte cazuri, pentru a înțelege natura rezultatelor dorite ale muncii programului compilat, este util să desenați mai întâi un astfel de grafic manual În acest scop, axele de coordonate trebuie marcate pe o foaie de hârtie, așa cum se arată în Fig , - - DESPRE ■/ eu О T, o-L *- - - - * - Orez capitolul Folosim axa x pentru a indica numărul de aruncări de monede (pași), iar axa y pentru a indica poziția călătorului după fiecare pas Să presupunem că călătorul a făcut următoarea serie de pași: + , + , - , + , - , - , - , + , - , - , unde + corespunde călătorului care se deplasează cu pas înainte și - - * pas înapoi Poziția călătorului după fiecare pas este prezentată în tabelul următor Direcţie miscarile Poziția călătorului după pasul următor Numărul pasului DESPRE o + o - o - - Vederea graficului corespunzător este prezentată în fig Cititorul este încurajat să scrie propriul program care simulează plimbări aleatorii și afișează rezultatele sub forma unui grafic Pentru a ajuta un programator începător: Vă recomandăm să reprezentați graficul mișcării unui călător în de pași, iar pe ecranul de afișare, pasul fiecărui călător ar trebui să fie reprezentat de cinci mișcări simple ale punctului luminos (cinci diviziuni ale scalei corespunzătoare Legile evenimentelor aleatorii scară) așa cum se arată în fig În prima parte a programului trebuie definite funcțiile de scalare (dacă este necesar, vă puteți referi la liniile software-ului și din programul al aplicației), apoi programul trebuie să conțină operatori care să asigure construcția programului coordona axele cu aplicarea diviziunilor corespunzatoare asupra acestora (liniile - din programul din aplicatie) Elemente de descompunere a CALCULATORULUI /ОО II! II I II IJJ II Şi ! |-N I I I N II FH I II IIII I-, INAINTE DE DESPRE Numărul pasului În ѵ- - - - - - - Locația călătorilor - Elemente de descompunere computerizată - - - - - - - - - - - - Orez Fiecare pas al calatorului trebuie reprezentat in program prin numarul + sau - O modalitate de a obține numerele + sau - în mod aleatoriu este de a evalua o expresie aritmetică ca * INT( * RND(l)) - Acum încercați să scrieți un program pentru a rezolva această problemă, referindu-vă la programul al aplicației dacă este necesar După ce vă asigurați că programul funcționează, rulați-l pe un computer de mai multe ori, ceea ce vă va oferi o reprezentare vizuală a interpretării grafice a plimbărilor aleatorii Graficele construite ale plimbărilor aleatorii ilustrează nu numai traseul "mersului bețivului" Ele, de exemplu, caracterizează creșterea câștigului sau pierderii unui jucător care, atunci când aruncă o monedă, pariază de fiecare dată pe capete capitolul Tehnica de algoritmizare și programare folosită în rezolvarea Problemei poate fi folosită pentru a răspunde la unele întrebări care apar în studiul mersurilor aleatorii De exemplu, puteți răspunde la întrebarea care este probabilitatea ca după zece pași de plimbări aleatorii călătorul să se întoarcă exact la punctul de plecare Pentru a face acest lucru, evident, este necesar ca el să facă cinci pași înainte și cinci pași înapoi în orice succesiune Acest lucru corespunde exact cazului de cădere, cinci capete și cinci cozi atunci când o monedă este aruncată de ori La rezolvarea problemei , s-a constatat că acest lucru se întâmplă de de ori din de experimente, adică probabilitatea dorită este / = , Experiența Cineva, să-i spunem Joe Lucky, are USD și vrea să-și mărească capitalul la USD În acest scop, va folosi jocul de aruncare a monedelor într-un cazinou fictiv Regulile jocului sunt simple: orice sumă de bani este potrivită ca pariu, pentru care se aruncă o monedă Dacă apare cozi, jucătorul pierde pariul, iar dacă iese cu cap, câștigă în valoarea pariului De exemplu, dacă are $ și face un pariu de $, jucătorul îl pierde pe cozi (lăsând $), iar pe cap îl câștigă (având un total de $) Joe ar fi putut paria toți dolari deodată și fie să obțină ceea ce își dorește, fie să piardă totul Dar nu este un mare parior și decide să parieze doar $ de fiecare dată și să joace până când își pierde toți banii sau îi crește până la dorința de $ Cititorul este invitat să scrie un program care simulează jocul lui Joe Lucky Este necesar să se determine care este probabilitatea ca Joe să-și atingă scopul Dacă apar dificultăți în timpul dezvoltării programului, vă puteți referi la programul al aplicației Programul rezultat ar trebui apoi modificat în așa fel încât să simuleze jocul lui Joe pentru cazul în care capitalul inițial este de USD, iar scopul este același, și anume, să ai la dispoziție USD Se recomandă compararea programele originale și modificate, determinând care sunt acestea sunt diferite Experiența Într-un cazinou real, jocul descris mai sus nu este jucat În orice joc care poate fi jucat într-un astfel de cazinou, proprietarului cazinoului i se oferă un oarecare avantaj De exemplu, Legile evenimentelor aleatorii într-o versiune a ruletei are de găuri, dintre care sunt numerotate de la la O jumătate dintre găuri sunt vopsite în roșu, cealaltă jumătate în negru Cele două găuri rămase sunt numerotate și și sunt colorate în verde Dacă un jucător pariază pe negru, atunci există șanse din să câștige și de șanse în să piardă Să presupunem că în timp ce joacă la ruletă, Joe pariază pe negru Dacă pariază toți dolari odată, atunci șansa lui de câștig este / = , Cititorul este invitat să scrie un nou program sau să modifice programul anterior în consecință pentru a determina probabilitatea ca Joe, de fiecare dată când pariază dolari , pierdeți toți banii sau obțineți cei de dolari necesari Pentru a ajuta un programator începător: deoarece probabilitatea de a câștiga este de / la fiecare rotire a roții ruletei, rezultatele unei astfel de rotiri unice a roții ruletei pot fi descrise de următorul fragment de program: R=RND( ) DACĂ R / ATUNCI C = C - Dacă vă este dificil să scrieți textul integral al programului, vă puteți referi la programul al aplicației Rulați programul pe care l-ați dezvoltat de mai multe ori După ce ați analizat rezultatele, decideți dacă există vreun sfat pe care îl puteți da lui Joe? Experiența Cititorul este invitat să determine experimental cât de departe este cel mai probabil să se deplaseze un călător dintr-un anumit loc în timpul unei plimbări aleatorii de de pași Apoi ar trebui să scrieți un program care simulează o repetare de de ori a plimbărilor aleatorii de de pași în fiecare experiment La sfârșitul fiecărui experiment, este necesar să se determine cât de departe s-a îndepărtat călătorul de poziția sa de pornire În plus, ar trebui să numărăm numărul de experimente care se termină la poziția de pornire a călătorului (distanță zero), precum și la o distanță de , , , , la de pași de acest loc Pentru a face prezentarea grafică a rezultatelor mai vizuală și interesantă, însoțită de sumarea numărului de experimente care se termină cu aceeași distanță față de poziția de pornire, afișajul trebuie utilizat în modul de rezoluție scăzută și afișarea rezultatelor pe grafic imediat după sfârşitul următorului experiment Deși afișajul nu poate afișa rătăcirile care se termină la mai mult de de pași distanță de afișaj în modul de rezoluție scăzută capitolul punctul de plecare, acesta practic nu este un dezavantaj serios, deoarece probabilitatea de a se îndepărta de acest loc la o distanță de peste de pași este atât de mică încât este puțin probabil să se producă un astfel de eveniment Este recomandat să încercați să scrieți singur acest program În caz de dificultăți, consultați programul aplicatii Graficul va fi mai ușor de citit dacă următoarele etichete sunt afișate în partea de jos a ecranului: SCRIE (vezi rândurile și din programul ) După depanare, programul ar trebui încercat de mai multe ori Dacă funcționează corect, puteți observa următoarea caracteristică: toate plimbările aleatorii se termină la un număr par de pași de la punctul de plecare Puteți explica motivele acestui lucru? Schimbați textul programului astfel încât plimbările aleatoare să nu dureze , ci de pași, comparați rezultatele ambelor programe Cu ajutorul unui computer, puteți obține răspunsuri la multe întrebări diferite referitoare la plimbări aleatorii, de exemplu: ) Cât de des, în medie, se termină plimbările aleatorii de de pași la punctul de plecare? ) Cât de des, în medie, se termină plimbările aleatorii de de pași la punctul de plecare? ) câți pași vor fi necesari în medie înainte ca călătorul să se întoarcă la punctul de plecare ca urmare a plimbărilor aleatorii? Răspunsurile la multe dintre aceste întrebări sunt extrem de importante din punct de vedere practic Teoria probabilității are un potențial considerabil pentru evaluarea caracteristicilor plimbărilor aleatorii, dar există multe întrebări simple și în același timp importante, ale căror răspunsuri rămân necunoscute Problema Plimbări aleatorii bidimensionale Scopul programului dezvoltat: un studiu mai aprofundat al proprietăților statistice ale plimbărilor aleatorii Condiții preliminare specifice pentru dezvoltarea cu succes: familiaritatea cu soluția problemei Explicații pentru programator: această sarcină este de dificultate medie Legile evenimentelor aleatorii Plimbările bidimensionale aleatorii pot fi gândite ca un călător care se deplasează printr-o câmpie vastă, unde poate merge aleatoriu spre est, vest, nord sau sud La fel ca în problema anterioară, vom începe cunoașterea plimbărilor aleatorii de acest tip prin scrierea unui program pentru afișarea lor pe ecranul de afișare Experiența Pentru a afișa rezultatele rezolvării acestei probleme, este recomandabil să utilizați afișajul în modul de înaltă rezoluție Este convenabil să înfățișați un călător pe ecranul de afișare ca un pătrat de elemente de expansiune x În programele date în anexa pentru rezolvarea problemelor de acest tip, poziția inițială a călătorului este determinată în centrul ecranului, iar pasul de plimbări aleatorii corespunde celor patru elemente ale expansiunii Locația axelor de coordonate pe ecranul de afișare corespunde - - t - O A Pași de mers aleatoriu axa Y | / abscisă O - - Plimbări aleatorii ale pașilor Orez smochin În prima etapă a dezvoltării programului, este necesar să se scrie o procedură care să conțină funcții de scalare și să se asigure că fiecare pas de mers aleatoriu este convertit în deplasări echivalente ale unui punct luminos pe ecranul de afișare de-a lungul axelor x și y (liniile HI* și din programul al cererii) capitolul Pentru a stoca coordonatele locației călătorului în raport cu axele x și y, folosim variabilele corespunzătoare X și Y Imaginea condiționată primită a călătorului sub forma unui pătrat de elemente x poate fi implementată pe ecranul de afișare în mare modul de rezoluție folosind următoarea secvență de operatori: A = FN X(X) : B = FN Y(Y) HPLOT A- , B + LA A - , B - HPLOT A- , B TO A+ , B HPLOT A- , B- LA A+ , B- Pentru a vizualiza afișarea urmei rătăcitoare a călătorului pe ecranul de afișare, în fiecare punct al traseului său, se poate forma un marcaj care rămâne după deplasarea pătratului (cum se face, de exemplu, folosind liniile - din programul ) pentru locația călătorului, reprezentată printr-un punct cu coordonatele A, B) Viteza mare a computerului și, în consecință, viteza mare de afișare a rezultatelor pe ecran nu fac posibilă vizualizarea procesului rătăcirilor călătorului Pentru a putea observa rătăcirea călătorului pe ecranul de afișare, în programul (linia ) imediat după formarea imaginii călătorului, se introduce o buclă de întârziere: PENTRU DLY = LA și NEXT DLY Similar cu aruncarea unei monede în timpul plimbărilor unidimensionale, călătorul folosește un zar cu patru fețe pentru a determina direcția de mișcare în carcasa bidimensională și alege direcția în funcție de rezultatul aruncării Cititorul este invitat să scrie un program care simulează plimbări aleatorii bidimensionale, folosind, dacă este necesar, schema algoritmică prezentată în Fig , programul al aplicației, precum și notele de mai jos Note: Valorile maxime admise ale coordonatelor locației călătorului, reprezentate de un pătrat de dimensiuni x elemente, sunt Y = , X = - Pentru a reduce textul programului, s-au făcut unele modificări ale algoritmului acestuia în comparație cu schema de algoritm prezentată în fig și anume: după fiecare dintre primele trei verificări pentru a vedea dacă călătorul a "părăsit" ecranul, acțiunile efectuate de program corespund liniei întrerupte din diagrama algoritmului, și nu liniei etichetate "nu" Legile evenimentelor aleatorii Orez capitolul Experiența Acest experiment explorează unele dintre proprietățile de bază ale plimbărilor D cu lungime fixă și discută aplicațiile acestora Rezultatele experimentului sunt afișate pe ecranul de afișare sub forma unei grile, fiecare celulă a căreia afișează numărul de plimbări efectuate pe ea, așa cum se arată în Fig ■вввввввввввввввввввв ввввввввввввввввввввв ввввввввввввввввввввв ввввввввввввввввввввв ввввввввввввввввввввв ввввввввввввввввввввв ввввввввввваввввввввв ввввввввввввввввввввв ввввввввввввввввввввв ■iiiiaiaaai p şi i nanw-i VVVVVVVVVNVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VOVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VV WWWWWWWWWWWWWWWWWWWWWWW; [WWWWWWWWWWWWWWWW] WWBBWWWWWWWWWWWWWWCCWWWWWWWWDD] WWWWWWWWWWWWWWWWWWWWWWW; Orez , Rezultatele obținute în acest experiment sunt valabile pentru multe aplicații practice ale plimbărilor aleatorii bidimensionale Luați în considerare, de exemplu, un joc în care participanții aruncă săgeți mici cu pene către o țintă Dacă toate aruncările ar fi perfecte, fiecare aruncare s-ar termina cu o săgeată care lovește exact centrul țintei Cu toate acestea, aruncarea unor astfel de săgeți este o acțiune foarte complexă, al cărei rezultat depinde de coordonarea multor mușchi ai aruncătorului, precum și de creierul acestuia, care determină coordonatele țintei și controlează mușchii brațului și corpului Fiecare componentă a acestei acțiuni complexe poate da o eroare care afectează abaterea săgeții de la traiectoria ideală Calea reală de zbor a unei săgeți depinde de suma unui număr mare de erori mici Aceste mici erori sunt similare cu mulți pași mici în plimbări aleatorii, un fel de țintă care a fost deja folosită de multe ori cu afișajul în joc Legile evenimentelor aleatorii (Fig ), seamănă cu o imagine foarte asemănătoare cu afișajul rezultatele experimentului descrise mai jos Acest experiment este considerat o plimbare aleatorie cu o durată de de pași Locația punctului final fiecare plimbare următoare este prezentată în Fig Toate plimbările încep în punctul cu coordonatele ( , ) După de pași, majoritatea plimbărilor nu ajung în afara rețelei date, deși pot exista câteva plimbări care se termină în afara acesteia Pentru a înregistra numărul de plimbări încheiate în fiecare celulă, este rezervată o matrice bidimensională DIM NW( , ) fixat pe grătar Variabila indexată NW(I, J) denotă numărul de plimbări aleatorii care se termină într-o celulă reticulat cu coordonatele /, J Cititorul este invitat să înceapă rezolvarea problemei prin scrierea unui program care simulează de mers aleatorii cu o durată de de pași fiecare și înregistrează numărul de plimbări care se termină în fiecare grătare de celule Dacă există dificultăți, vă puteți referi la schema de algoritm prezentată în Fig Programul depanat ar trebui să fie executat de de ori Pentru a afișa rezultatele, puteți utiliza un fragment de program precum Următorul: PENTRU X = O LA PENTRU Y = APOI PRINT "NW("; X; Y; ") = NW(X,Y) URMĂTORUL Y IMPRIMARE Următorul X Cu toate acestea, o astfel de derivare va da o mulțime de numere greu de interpretat Pentru a face rezultatele vizuale, utilizați un afișaj grafic de înaltă rezoluție și reproduceți pe el grila folosită pentru a descrie plimbările și puneți un punct în fiecare celulă a grilei dacă următoarea plimbare se termină în această celulă capitolul După efectuarea acestor pași, puteți obține o imagine foarte asemănătoare cu cea prezentată în Fig Înfățișează o zăbrele, punctele din celulele cărora simbolizează finalizarea plimbărilor aleatorii Pentru ca monitorizarea programului să funcționeze mai vizuală și interesantă, se recomandă afișarea fiecărui punct menționat pe ecran la sfârșitul următoarei plimbări Orez O parte semnificativă a acestui program este ocupată de construcții grafice Vederea fiecărei celule reticulate este prezentată în fig Conturul unei celule pătrate este delimitat de patru linii În partea centrală a celulei există un pătrat de X X = de elemente Aceste de elemente sunt menite să reprezinte numărul de plimbări care s-au încheiat într-o celulă dată și sunt numerotate așa cum se arată în Fig Pătratul trebuie completat de la stânga la dreapta și de jos în sus În timpul execuției programului, variabilele R(X, Y) și C(X, Y) conțin informații despre numerele rândului și coloanei la intersecția cărora a fost situat ultimul dintre puncte, marcate Legile evenimentelor aleatorii Orez într-o celulă cu coordonatele (X, Y) De exemplu, după ce plimbări aleatorii sunt finalizate într-o celulă cu coordonatele ( , ), aceasta va arăta ca cea prezentată în Fig , cu ?( , ) setat la și C( , ) setat la h O V Orez , Ol Q nr capitolul Orez Orez Întreaga grilă va arăta ca cea prezentată în Fig Numerele de la capetele rețelei sunt coordonatele rândurilor respective așa cum sunt determinate de computer (coordonatele mașinii) Rețineți că, în acest caz, sunt utilizați de pași de-a lungul axei y, deși Apple folosește de obicei nu sunt permise mai mult de Creșterea numărului de pași la se realizează prin utilizarea operatorului POKE- & , Cu toate acestea, acest lucru vine cu prețul a patru linii în partea de jos a ecranului de afișare, destinate Legile evenimentelor aleatorii text atunci când afișajul este în modul grafic de înaltă rezoluție și nu sunt disponibile pentru utilizare în acest caz Cititorul este acum invitat să scrie o scurtă subrutină pentru a genera o imagine a unei rețele date Selectarea acestei părți ca subrutină separată va reduce ulterior înregistrarea programului în ansamblu (dacă scrierea unei subrutine cauzează dificultăți, vă puteți referi la rândurile - din programul al aplicației) Iată o descriere generală a întregului program: Inițializare: (a) HGR ROQUE - , (PENTRU UTILIZAREA TOTULUI ECRANUL) HCULOARE = (ALB-NEGRU) (b) DIM R( ), C( ) Formarea imaginii latice Efectuarea de plimbări aleatorii cu o durată de de pași capitolul Adăugarea unui alt punct la celula unde s-a încheiat mersul aleatoriu Adăugarea se efectuează până când celula este umplută, în caz contrar toate acțiunile sunt oprite, execuția programului se încheie Repetarea paragrafelor și Luați în considerare compilarea unui fragment de program care îndeplinește cerințele paragrafului Rețineți că colțul din stânga jos al celulei cu coordonatele X și Y din computerul Apple are coordonatele + 'X, respectiv - -Y, ca prezentată în fig Numerele de-a lungul marginilor din dreapta și de sus ale grilei indică numerele de celule, iar de-a lungul marginilor din stânga și de jos, coordonatele y și respectiv x, așa cum sunt definite în Orez mașină de calcul De exemplu, în fig celula umbrită cu numărul ( , ) are coordonatele x și y ale colțului din stânga jos și, respectiv, Să fie necesar să se pună un punct (un semn la încheierea plimbării) în rândul R și coloana C a unei celule (Fig ) Rețineți că punctul C din rândul R al celulei (X, Y) are următoarele coordonate: coordonată x \ + * X + + C \u d + * X -C, coordonată y * - * Y - - R \u d - * Y - R Schema algoritmului prezentată în fig descrie acțiunile care trebuie efectuate de fragmentul de program corespunzător clauzei Înainte de a începe să scrieți un program, trebuie să țineți cont de următoarele: orice program care conține multe variabile și care utilizează un mod grafic de înaltă rezoluție, potențialul Legile evenimentelor aleatorii dar poate deborda RAM (cap ) Există aproximativ de variabile în acest program [DIM R( , ), C( , ) Pericolul de depășire poate fi prevenit utilizând următoarea instrucțiune în prima linie a textului programului: LOMEM : Acum este pregătit pentru scrierea unui program Dacă este necesar, puteți consulta programul al aplicației Cu toate acestea, are două îmbunătățiri (liniile - și ) care nu au fost încă luate în considerare Îmbunătățiri ale programului Când reporniți versiunea originală a programului (oferită pentru scriere cititorului), puteți vedea că sunt folosite doar jumătate din celulele grilei (/Poți explica acest fenomen?) Dacă durata plimbărilor aleatorii, în loc de o lungime fixă (egale cu ), este făcută să varieze conform unei legi aleatorii și ia valori de sau , atunci toate celulele de se va folosi grilajul Totodată, numărul locurilor efectiv ocupate cu puncte (note la finalizarea unei plimbări aleatorii) se va dubla și se va îmbunătăți vizibilitatea prezentării rezultatelor programului (liniile și din programul ) capitolul După finalizarea reprezentării grafice a rezultatelor programului, liniile grilei pot părea de prisos și chiar înrăutăți vizibilitatea reprezentării naturii grupării de puncte pe ecranul de afișare Prin urmare, un fragment de program care șterge rețeaua menționată (liniile și din programul din anexă) poate fi util Problema Testarea ipotezelor statistice Scopul programului dezvoltat: studiul metodelor statistice de testare a ipotezelor (Metodele luate în considerare sunt adesea folosite în jurisprudență pentru a dovedi vinovăția acuzatului, în medicină pentru a determina fiabilitatea diagnosticelor și în multe alte aplicații ) Condiții preliminare specifice pentru dezvoltarea cu succes: familiaritatea cu soluționarea problemelor și Explicații pentru programator: această sarcină presupune dezvoltarea mai multor programe scurte Într-un oraș a avut loc un carnaval solemn În timpul vacanței, o cunoștință pe nume Hank a intrat în sediul șerifului local și a început să se plângă de escrocheria la aparatele de joc pe care ar fi descoperit-o Șeriful nu era foarte surprins, pentru că în fiecare an, în timpul carnavalului, veneau la el învinși iritați, considerându-se jigniți nu numai de soartă Potrivit "victimei", acesta a fost înșelat de așa-numita "roată a norocului" (Fig ) În acest joc, se pariază $ pentru fiecare rotire a roții Evenimente aleatoare peste Ko Hai pariul de pornire plus $, dacă semicercul cu inscripția "pierde", atunci jucătorul a pierdut pariul Dacă jocul este corect, atunci șansele de a câștiga și de a pierde sunt aceleași ( %) Venitul proprietarilor de "roata minunată" (organizatorii de carnaval) a constat din cenți suplimentari plătiți de la jucător pentru fiecare sesiune a jocului - Șeriful! Hank a exclamat în timp ce a pătruns pe uşă: "Jucam Wheel of Fortune de de ani, dar nu am pierdut niciodată de dolari până acum! Ha, Hank! Îmi amintesc că acum ani ai reușit să câștigi de dolari fără să te plângi că roata era falsă Mi se pare că dacă poți câștiga de dolari într-un joc corect, poți pierde aceeași sumă - Poate, șerif, dar nu ca astăzi După ce am coborât totul, am stat mult timp, uitându-mă la meci Au trecut cincizeci de sesiuni, dintre care s-au încheiat cu pierderi și doar în câștiguri, adică cu până la sesiuni mai puțin Cred că organizatorii carnavalului au făcut roata atât de grea încât a pierdut % din timp "Stai, Hank Știi perfect că câștigurile nu scad neapărat de exact de ori din ! Da, dar de ce doar de de ori? Acest lucru este foarte suspect Iată ce-ți ofer, șerif Mâine te schimbi și te machiezi ca să nu fii recunoscut, mergi acolo și urmărește jocul timp de de sesiuni Vei vedea singur! Pun pariu că pierderea va apărea de cel puțin de ori Aceasta va dovedi vinovăția proprietarilor Dacă pierderea vine în de cazuri sau mai puțin, recunosc că m-am înșelat - Bine, Hank Se pare că ai venit cu o modalitate corectă de a-ți testa suspiciunile, deoarece crezi că pierzi în % din cazuri, iar proprietarii acestui slot machine susțin că în % Exercitiul Să presupunem că jocul este corect Care este probabilitatea ca proprietarii unui slot machine să fie acuzați în mod nerezonabil de contrafacere? Sarcina Să presupunem că jocul este jucat necinstit: în % din cazuri există o pierdere Care este probabilitatea ca proprietarii, din păcate, să nu fie măriți într-un fals? Probleme similare sunt foarte tipice pentru multe domenii ale vieții moderne Un exemplu este statistica capitolul confirmarea fiabilității indicațiilor medicale că anumite substanțe sunt cancerigene Dovezile adevărului unor astfel de afirmații se bazează pe modele probabilistice, care servesc drept argument destul de convingător Mai mult, gradul de fiabilitate al caracteristicilor statistice poate fi cuantificat Înainte de a continua să citiți, încercați să răspundeți singur la întrebările privind ambele sarcini Există două abordări posibile pentru îndeplinirea acestor sarcini: ) teoretic, ) experimental, bazat pe modelare statistică Abordare teoretică Prima sarcină este similară cu problema aruncării unei monede Rezultatele învârtirii roții sunt similare cu cele ale aruncării unei monede, cu capul ca o pierdere și cozile ca o victorie Pentru a găsi răspunsul la întrebarea primei sarcini, este necesar să se determine probabilitatea cu care capetele cad de sau mai multe ori din În acest scop, vom folosi tabelul triunghiular al lui Pascal Mai întâi, să rezolvăm o problemă mai simplă și să găsim probabilitatea ca atunci când aruncăm o monedă, capete să cadă de sau mai multe ori din Iată valorile elementelor din al zecelea rând al tabelului Pascal, care au fost găsite la rezolvarea problemei : Numărul de heads up Număr de aruncări Însumând conținutul rândurilor - ale coloanei din dreapta, obținem Legile evenimentelor aleatorii Conform rezultatelor însumării, există sau mai multe capete pe Deoarece numărul total de rezultate echiprobabile pentru aruncări de monede este = , atunci de cazuri de capete de sau mai multe ori corespund la , % din posibilele rezultate numărul de rezultate Să revenim la prima sarcină Pentru a o rezolva, este necesar să se calculeze valorile elementelor din rândul al tabelului triunghiular Pascal Dacă încercați să modificați programul corespunzător sarcinii în acest scop, este posibil să nu reușiți Mai jos sunt rezultatele unei încercări de o astfel de modificare a autorului DIM T( ) : REM REZERVE MEMORIE PENTRU PASCAL TABLE; T(I,J) - CONTORUL NUMĂRULUI DE APARIȚII ALE VURILOR DE J ORI LA I-MULTIPLE aruncări T( , ) = : T( , ) = : CALCUL REM AL ELEMENTELOR PRIMULUI RÂND AL TABELUI PASCAL PENTRU I = LA : REM CALCULUL ELEMENTELOR RÂNDULUI DE LA LA T (I + , ) \u d ; REM ESTE SINGURA SITUAȚIE ÎN CARE VULTURUL NU SE ÎNTÂMPLĂ NICIODATĂ PENTRU J = LA I T(I + ,J) = T(I,J) + T(I,J - ) : REM DE DOUA CAPE J TIGI: J TIPI PE PRIMUL I ROTUL ȘI COZI PE (I + )-M ; (J - ) TIMP LA ÎNTÂI I ARUNĂRI ȘI EAGLE REM: LA (I + ) - M URMĂTORUL J T(I + + ) = : REM SINGURA SITUAȚIE CAND TOATE aruncările SUNT CAPE PRINT : REM PENTRU J = ATUNCI I + : IEȘIRE REM (I + ) RÂND PRINT "T("; I + ;",";J;") = ";T(I + l,J) URMĂTORUL J URMĂTORUL I ]ALERGA ?EROARE ÎN MEMORIE ÎN Calculatorul a emis un mesaj de eroare "memory overflow" imediat după executarea instrucțiunii din linia a programului Această linie încearcă să rezerve memorie pentru de variabile, fiecare dintre acestea necesită octeți, adică mai mult de K octeți sunt necesari în total O astfel de utilizare a memoriei este extrem de irațională La calcularea valorilor elementelor tabelului Pascal, nu este nevoie să stocați toate rezultatele Pentru a calcula elementele fiecărui rând, este suficient să aveți doar valorile elementelor din rândul anterior Toate celelalte linii pentru calcule nu mai sunt necesare Prin urmare, memoria ar trebui să fie rezervată doar pentru două linii: DIM PR( ) : REM LINEA ANTERIOARĂ DE DIM NR( ) : REM LINIE CALCULATĂ capitolul În acest caz, următoarea secvență de calcul a valorilor elementelor tabelului Pascal este acceptabilă: Atribuirea variabilei PR a valorilor elementelor primului rând PR(O) = : PR( ) = Calculați valorile elementelor din rândul următor, folosind elementele din rândul anterior: NR( ) = : NR(N) = FOR I = TO N - NR(I) = PR(I - ) + PR(I) NEXT I Transferarea valorilor elementelor matricei NR în matricea PR Acțiuni pp și trebuie repetate într-un ciclu pentru variabila N, care ia valori - cu un pas de Calculatoarele pot fi folosite pentru a răspunde la o serie de alte întrebări De exemplu, folosind datele din al -lea rând al tabelului Pascal, este posibil să se determine probabilitatea de a cădea capul de cel mult ori într-o aruncare de ori Pentru a face acest lucru, trebuie să calculați suma + + + Număr de heads up Număr de aruncări + + și împărțiți rezultatul la numărul total de rezultate posibile Probabilitatea dorită este / = , Cititorul este invitat să schimbe programul și să obțină pentru fiecare linie a triunghiului lui Pascal un tabel de următoarea formă: Linia * ❖ :>• * * Numărul de capete (/ de zile, februarie are de zile ( într-un an bisect) Un an poate conține de zile (de exemplu, ) sau ( ) Anii nu erau declarați ani bisecți în mod regulat și conțineau nu numai zile suplimentare, ci și luni întregi Acest an sau acel an a fost proclamat an bisect din motive politice Motivul pentru aceasta ar putea fi chiar și dorința conducătorilor de a-și prelungi șederea la putere Astronomiei i se poate reproșa că are un sistem de referință temporal atât de nerezonabil, în opinia noastră, întrucât cele trei unități principale de măsurare a timpului discutate mai jos se bazează pe fenomene astronomice și tocmai aceasta este sursa acestor neînțelegeri Ochii Ziua ' - perioada de timp în care Pământul face o revoluție completă în jurul axei sale Pentru a rezolva problemele luate în considerare în această carte, putem presupune că ziua este constantă și egală cu exact de ore De fapt, acest lucru nu este în întregime adevărat * ) O lună este o perioadă de timp aproximativ egală cu perioada de revoluție a Lunii în jurul Pământului ) (aproximativ , zile) An - o perioadă de timp aproximativ egală cu perioada de revoluție a Pământului în jurul Soarelui și care durează aproximativ de zile ore minute secunde Dacă aceste unități de măsură ar fi multipli una pe alta (de exemplu, fiecare lună ar conține exact de zile, iar anul ar conține de zile, adică exact luni), calendarul utilizat în prezent ar fi mult mai simplu, ceea ce ar simplifica foarte mult și rezolvarea problemei luate în considerare Cu toate acestea, necesitatea respectării stricte a prescripțiilor calendaristice obligă pe cineva să opteze pentru trucuri adecvate atunci când se compilează algoritmi și programe care funcționează cu unitățile de măsurare a timpului de mai sus Scopul principal al acestei sarcini este dezvoltarea subrutinei DATEI, care este utilizată în continuare în mai multe programe care necesită măsurarea intervalelor de timp, în special la compilarea unui calendar universal și calcularea bioritmurilor Pentru a determina coordonatele geografice ale unui obiect, este necesar să existe o anumită origine De exemplu, longitudinea geografică este măsurată în grade vest sau est de meridianul Greenwich În mod similar, atunci când se măsoară timpul, este necesar să existe și un anumit "punct" de referință X) Există două definiții ale unei zile Prima definiție este legată de măsurarea rotației zilnice a Pământului față de Soare Aceasta este o zi obișnuită sau însorită Pe lângă măsurătorile solare, măsurătorile astronomice folosesc și așa-numita zi sideală, care determină rotația zilnică a Pământului în raport cu stele ) Viteza de rotație a Pământului nu este constantă Există mulți factori care provoacă unele modificări, deși minore, ale mărimii vitezei De fapt, oricare dintre noi poate influența valoarea acestei cantități Pentru a face acest lucru, este suficient ca unul dintre noi, până acum, de exemplu, stând pe un scaun, doar să se ridice În conformitate cu legea conservării momentului unghiular, reduceți astfel viteza de rotație a Pământului Conform aceluiași principiu, un patinator pe gheață își poate schimba viteza propriei rotații extinzându-și brațele în lateral sau apăsându-le pe corp Revenindu-te pe picioare, desigur, ai schimbat viteza de rotație a Pământului cu o cantitate mică, dar ai schimbat-o totuși ) Perioada de revoluție a Lunii față de Pământ este determinată prin măsurarea intervalului de timp în care are loc un ciclu complet de faze lunare, Măsurarea timpului În problema dată, ca început al referinței de timp este aleasă decembrie Există două motive pentru această alegere În primul rând, majoritatea evenimentelor care ne pot interesa au avut loc mai târziu de această dată În al doilea rând, calendarul care era valabil înainte de ora specificată a suferit multe modificări și, ca urmare, programul de determinare a datelor calendaristice premergătoare acestei date ar fi mult mai complicat Ultima modificare semnificativă a calendarului a avut loc în Cu toate acestea, noul sistem s-a extins în majoritatea țărilor mult mai târziu Din acest motiv, de exemplu, uneori apar dezacorduri cu privire la data nașterii lui J Washington: în unele cazuri este indicată februarie , în altele - februarie Prima dată corespunde vechiului calendar iulian, iar a doua gregorianului modern În problema luată în considerare se folosește cronologia după calendarul gregorian În prima parte a problemei care se rezolvă, este necesar să se calculeze numărul de zile care au trecut de la decembrie până la o dată dată Deci, până la ianuarie , au trecut zile, iar până la februarie - de zile Deoarece astfel de calcule sunt necesare în mod repetat la rezolvarea problemelor ulterioare ale acestui capitol, este recomandabil să se aranjeze algoritmul pentru astfel de calcule sub forma unei subrutine, denumită în continuare DATA Pentru a numerota liniile acestei subrutine, numerele din Se utilizează un interval de valori - Pentru a utiliza această subrutină ca parte a unui anumit program în limbajul BASIC, este suficient să îl încărcați în memoria RAM a mașinii, referindu-vă la discul magnetic sau banda magnetică corespunzătoare, unde este stocat sub numele DATA Trebuie remarcat faptul că, în acest caz, liniile din textul programului nu pot fi numerotate cu numerele - și, de asemenea, folosesc variabilele de nume care se află în textul subrutinei DATE , cu cu excepția variabilelor care sunt parametrii de intrare sau de ieșire ai subrutinei Pentru ca subrutina DATEI să-și poată îndeplini funcțiile, trebuie să i se transmită ca date inițiale valorile a trei variabile L , O și Y, care denotă respectiv luna, ziua și anul (acesta din urmă nu trebuie să fie mai mic decât ) Pentru comoditatea programării, vom atribui lunilor următoarele denumiri numerice: M= - ianuarie M= - februarie M= - martie M= - aprilie M= - mai M= - iunie capitolul M= -iulie M= - august M= - septembrie M= - octombrie M= - noiembrie M=H - decembrie Rezultatul executării subrutinei este un număr definit de variabila DY și egal cu numărul de zile care au trecut de la decembrie până la data dată Deoarece această subrutină este destul de complexă, este recomandabil să o împărțiți în următoarele proceduri: ) analiza unui an dat Y pentru a afla dacă este un an bisect; ) analiza corectitudinii setarii datei ca o combinatie de zi si luna De exemplu, ianuarie este o dată validă, dar februarie este incorectă; ) determinarea numărului ordinal al zilei dintr-un anumit an (de exemplu, ianuarie este a -a zi a anului, iar februarie este a -a zi)? ) determinarea numărului de zile de la decembrie până la o dată dată Să aruncăm o privire mai atentă asupra tuturor acestor proceduri Analizați un anumit an pentru a vedea dacă este un an bisect Această procedură este implementată ca o subrutină separată, în care este utilizată ca ieșire doar o variabilă L În cazul unui an bisect, L = l, în cazul unui an obișnuit, L= Lungimea fiecărui an în zile este dată de +L, iar lungimea lunii februarie de +L Dacă problema luată în considerare a funcționat cu date dinainte de , programarea acestei proceduri nu ar cauza nicio dificultăți: în calendarul iulian al acelor vremuri, fiecare an bisect era un multiplu de patru (adică divizibil cu fără rest) Totuși, în acest caz, durata medie a fiecărui an este de de zile și ore Având în vedere că Pământul face o revoluție completă în jurul Soarelui în aproximativ de zile ore minute și de secunde, concluzionăm că anul iulian este mai lung decât anul solar În , la îndrumarea Papei Grigore al XIII-lea, a fost efectuată o reformă calendaristică În conformitate cu modificările introduse, anii care se termină cu două zerouri nu mai sunt considerați ani bisecți, cu excepția celor care sunt divizibili cu fără rest Conform acestui sistem, anii , și sunt ani bisecți, iar anii , Măsurarea timpului , și sunt comune Schema algoritmului pentru a determina dacă un anumit an este un an bisect este prezentată în fig În programul al aplicației, subrutina corespunzătoare este plasată în rândurile - Cititorul este invitat să scrie singur textul unei astfel de subrutine, referindu-se la programul al anexei numai atunci când apar dificultăți În programul , la compilarea acestei subrutine, a fost folosită o caracteristică a aritmeticii întregi, care merită luată în considerare mai detaliat În acest caz, este necesar să se determine dacă numărul A este divizibil cu numărul B fără rest (adică se determină multiplicitatea unui număr în raport cu altul) De exemplu, numărul este divizibil cu fără rest, deoarece rezultatul împărțirii / = este un număr întreg Dimpotrivă, nu este divizibil cu fără rest, deoarece rezultatul împărțirii / = , nu este egal cu un număr întreg Dacă A este divizibil cu B fără rest, atunci numărul capitolul (A/B) este un număr întreg, adică A/B = INT (A/B) Posibilitatea de a împărți un număr (L) la un alt număr (B) fără rest se determină folosind următorul operator: DACĂ INT(A/B) = A/B ATUNCI : REM MERCEȚI LA LABEL DACĂ DIVIZIȚII CU B FĂRĂ RĂMÂNE Analiza corectitudinii setarii datei Această procedură trebuie efectuată chiar la începutul programului Scopul său este de a analiza corectitudinea setarii unei date ca o combinație între o zi și o lună Așa cum o persoană trebuie să-și amintească câte zile sunt în fiecare lună ( de zile în aprilie, iunie, septembrie și noiembrie), la fel și informațiile despre numărul de zile din fiecare lună trebuie să fie stocate în memoria computerului Este convenabil să aranjați aceste informații pentru stocarea într-un computer sub forma unui tabel, care poate fi format, de exemplu, folosind următorii operatori: : REM ÎN MARTIE ZILE MT( ) = i REM LA DECEMBRIE MT( ) = + L : REM ÎN SAU DE ZILE FEBRUARIE (ÎN AN bisect) Cu toate acestea, utilizarea fragmentului de program de mai sus este asociată cu unele dificultăți Partea din program care implementează procedura descrisă și, prin urmare, include acest fragment, trebuie să fie reutilizabilă, dar instrucțiunea de pe linia poate fi executată o singură dată Dacă această condiție nu este îndeplinită, computerul va emite un mesaj de eroare Pentru a evita acest lucru, este suficient să includeți următoarele rânduri în textul programului: DACĂ SW = ATUNCI SW = : GOSUB MT( ) = + L : REM ÎN SAU DE ZILE FEBRUARIE (ÎN AN bisect) Prima dată când se apelează această procedură, instrucțiunile de pe liniile - vor fi executate deoarece valoarea variabilei este inițial ; la apelurile ulterioare la această procedură, instrucțiunile acestor linii nu sunt executate ("sărite") Rețineți că instrucțiunea de pe linia determină numărul de zile din februarie, folosind variabila de ieșire L a subrutinei de analiză pentru a determina dacă anul dat este un an bisect Schema algoritmului procedurii de analiză a corectitudinii unei date date este prezentată în fig , ; în programul al cererii, corespunde rândurilor - Măsurarea timpului Începuturile Orez Determinarea numărului de serie al zilei dintr-un an dat Să luăm în considerare acțiunile corespunzătoare acestei proceduri folosind un exemplu specific Să fie necesar să verificăm dacă aprilie este într-adevăr a -a zi a anului În primul rând, se determină numărul de zile din lunile precedente aprilie: H- + ^ Numărul de zile în ianuarie Numărul de zile în februarie Numărul de zile în martie capitolul Astfel, în primele trei luni au trecut de zile Deoarece aprilie este a șaptea zi a lunii a -a, este a -a zi de la începutul anului ( + = ) Procedura descrisă este implementată de următorul fragment de program: DY=D PENTRU I = LA M- DY = DY + MT(I) : REM ADD NUMĂR DE ZILE DIN LUNILE ANTERIOARE URMĂTORUL I Totuși, această secvență de acțiuni nu ține cont de următoarele: dacă L = , nu are sens să executați bucla FOR NEXT, deoarece nu există luni anterioare Prin urmare, soluția propusă mai sus trebuie ajustată: trebuie să adăugați linia DACĂ M = , atunci transferarea controlului către următoarea parte a programului când I = Această procedură este implementată de liniile - din programul al aplicației Determinarea numărului de zile de la decembrie până la o dată dată Există multe opțiuni pentru implementarea acestei proceduri Să luăm în considerare unul dintre ele, care, deși nu foarte rapid, este foarte ușor de programat Cititorul, dacă dorește, poate încerca să dezvolte un algoritm mai rapid Algoritmul prezentat mai jos este similar cu algoritmul procedurii descrise pentru determinarea numărului ordinal al zilei dintr-un anumit an Calculul numărului total de zile care au trecut de la decembrie , se face prin însumarea secvenţială a numerelor (sau pentru anii bisecţi), corespunzător unui an întreg, începând cu anul În continuare este programul corespunzător fragment: YR = Y : REM SCRIEȚI VALOAREA Y PENTRU DEPOZITARE ÎN YR DACĂ YR = APOI ÎNTOARCEȚI PENTRU Y = APOI YR - GOSUB : REM JUMP TO DETECTER DACA ANUL ESTE UN BECUT DY = DY + + L: REM ADD NUMBER ZILE ANII PRECĂTORII URMĂTORUL Y Y = YR : REM RESET VARIABILA Y întoarcere Acum trebuie să combinați toate fragmentele discutate mai sus într-o singură subrutină În cazul oricărui Măsurarea timpului dificultăți, vă puteți referi la un program similar , prezentat în anexă Înainte de a continua cu soluționarea problemei prezentate în această secțiune, este indicat să verificați performanța subrutinei compilate, folosind-o la executarea următorului program scurt: INTRODUCERE "LUNA, ZI, AN"; L, D, A PE GOSUB : DATA SUBPROGRAMULUI REM CALL PRINT "DY = DY PRINT DUȚI LA Mai jos sunt exemple de intrări de testare și ieșirile corecte corespunzătoare din această subrutină , , DY = , , DY = , , DY = , , , DY = , ianuarie DY = , , , DY = Stabilirea zilelor săptămânii După dezvoltarea și testarea performanței subrutinei DATE , puteți trece la scrierea diferitelor programe care funcționează pe date calendaristice În primul rând, luați în considerare un program care determină ce zi a săptămânii este orice dată calendaristică după ianuarie Pentru a compila programul, trebuie să știți în ce zi a săptămânii a fost data începerii numărătorii inverse În acest caz, vom folosi faptul că decembrie a căzut într-o zi de vineri Acum este necesar să se stabilească în ce zi cade februarie Folosind subrutina DATEI, determinăm că au trecut de zile de la decembrie până la februarie Împărțind acest număr la , obținem: : = , restul este Astfel, obținem că între cele două date indicate mai sus au trecut exact săptămâni, prin urmare, februarie cade și vineri februarie este separată de decembrie cu de zile, sau săptămâni și o zi, deoarece restul diviziei este Prin urmare, februarie cade sâmbătă Cititorul este încurajat să scrie propriul program care determină, folosind subrutina DATAI, ce zi a săptămânii este o dată dată În acest caz, este necesar să se compună programul în așa fel încât să determine restul împărțirii variabilei DY cu Dacă împărțirea se efectuează în mod obișnuit, atunci rezultatul este prezentat sub forma unui real capitolul număr De exemplu, rezultatul împărțirii lui la este , Pentru a calcula restul împărțirii DY la , utilizați următorul operator: R \u d DY - INT (DY / ) * Luați în considerare succesiunea de operații efectuate de acest operator cu DE = : / = , INT( / ) = - NUMĂR DE SĂPTĂMINI COMPLETE INT( / ):>- = - NUMĂR DE ZILE ÎN GĂSIT NUMĂR DE SĂPTĂMÂNI - INT ( / > = - = - VALOARE REZIDURĂ Dacă întâmpinați dificultăți în dezvoltarea acestui program, vă puteți referi la programul al aplicației Înainte de a începe să tastați textul programului, ar trebui să vă asigurați că subrutina DATEI este încărcată de pe un disc magnetic sau bandă în memoria RAM a computerului Mai jos sunt datele pentru testarea programului rezultat: ianuarie - sâmbătă iulie - marți mai - duminică februarie - joi martie - vineri martie - duminica martie - sâmbătă Sarcini suplimentare Scrieți un program care determină în ce zile ale săptămânii sunt toate zilele de naștere ale unei persoane cu vârsta cuprinsă între - de ani (data nașterii unei persoane este supusă introducerii) Scrieți un program care vă va permite să determinați numărul de zile dintre două date date (Instrucțiuni pentru programatorul începător: Calculați numărul de zile de la decembrie la fiecare dintre datele date și apoi scădeți ) Problema Calendar universal Scopul programului dezvoltat este de a forma o imagine de calendar pe ecranul de afișare pentru o lună dată din orice an după Condiții preliminare specifice pentru dezvoltarea cu succes: familiaritatea cu soluția problemei Măsurarea timpului Explicații pentru programator: pentru cei care au făcut față cu succes soluției problemei , compilarea acestui program nu va fi dificilă În această problemă, este compilat un program care "transformă" un computer personal într-un calendar universal Cu ajutorul acestui program, pe ecranul de afișare al computerului se formează o imagine de calendar pentru luna selectată a oricărui an începând cu anul În fig prezintă un exemplu de imagine a unui astfel de calendar pentru aprilie APRILIE Dumi Luni Mar Mier Joi Sat ' ■ " ' * • " ■ * * " ? • • g t • Orez Acest program folosește subrutina DATEI dezvoltată în rezolvarea problemei Formarea textului programului trebuie începută prin încărcarea subrutinei DATEI de pe un disc magnetic sau bandă în memoria RAM a mașinii Având la dispoziție subrutina DATEI, efortul principal poate fi îndreptat spre programarea acelei părți a problemei care asigură construirea unei imagini de calendar pe ecranul de afișare Programul dezvoltat constă din trei părți principale: ) introducerea informațiilor despre lună și an; ) utilizarea subrutinei DATEI pentru a determina numărul de zile dintr-o lună dată, precum și ziua săptămânii în care se încadrează prima zi a lunii respective; ) formarea imaginii calendarului capitolul Introducerea informațiilor despre lună și an Cel mai simplu mod de a implementa această procedură de introducere este să utilizați următorul operator: INTRODUCERE "INTRODUCEȚI LUNA, AN"; L, A O soluție mai riguroasă este să introduceți numele lunii și apoi să verificați corectitudinea numelui introdus Acest lucru necesită un tabel cu numele lunilor DIM NTS( ): REM MONTH NAME TABLE NTS(l) = "IANUARIE" NT$( ) = "FEBRUARIE" NTS( ) = "MARȚIE" NT $( ) = "APRILIE" NT$( ) ="MAI" NT$( ) = "IUNIE" NT$( ) = "IUL" NTS( ) = "AUGUST" NTS( ) = "SEPTEMBRIE" NTS( ) = "OCTOMBRIE" NTS(H) = "NOIEMBRIE" NT$( ) = "DECEMBRIE" În acest caz, introducerea numelui lunii și căutarea în tabel a numărului corespunzător acesteia poate fi efectuată prin următorul fragment de program: INTRODUCEREA "INTRODUCEȚI NUMELE LUNII"; MNS REM CĂUTARE LUNA ÎN TABEL PENTRU M = LA DACĂ NTȘ(M) = MNS ATUNCI URMĂTORUL M MESAJ DE EROARE AFIȘARE REM DACĂ LUNA NU SE GĂSEȘTE ÎN TABEL TIPARĂ "NUMELE LUNII INCORECT" ; GOTO Tehnica de a căuta prin tabele pentru a identifica un anumit element din el este utilizată pe scară largă în programare și, prin urmare, este folosită și în sarcinile ulterioare din această carte După introducerea lunii M, trebuie introdus anul Y Valorile M și Y sunt datele de intrare pentru subprogramul DATEI Utilizarea subrutinei DATE Mai întâi, variabilei D ar trebui să i se atribuie valoarea Apoi, folosind subrutina DATEI, ar trebui calculate valorile celorlalte două variabile: ) MT(M), care determină numărul de zile dintr-o lună dată; ) DY care definește numărul de zile care au trecut de la decembrie până în prima zi a lunii date Măsurarea timpului În această problemă, variabila DY este folosită pentru a determina ziua săptămânii în care se încadrează prima zi a unei luni date (dacă este necesar, vă puteți referi la programul din anexă) În programul în curs de dezvoltare, notăm zilele săptămânii prin numere în următoarea ordine: Duminica O Luni marti miercuri joi vineri Sambata Deoarece data inițială de decembrie a fost vineri (numărul ), puteți utiliza următorul operator pentru a determina ziua săptămânii: I = DY + - ❖ INT((DY + )/ ) Formarea imaginii calendarului pe ecranul de afișare Dezvoltarea acestei părți a programului este cea mai consumatoare de timp Pe fig arată ecranul de afișare, care urmează să fie așezat în conformitate cu numerotarea rândurilor și coloanelor, L"JZ j APRILIE ? ■w Dumi Luni Mar Mier Jo Vin S La J / v**** * **** * " * * ✓ • " • • a • V Orez acceptat pentru calculatoare precum Apple (vezi și Fig ) Rândurile - sunt generate de mai multe instrucțiuni PRINT În acest caz, cantitatea necesară de probă trebuie selectată cu atenție capitolul pescuit Liniile - formează un model repetat al unui număr de celule din tabelul calendaristic; această serie este prezentată separat în Fig Pentru calendarul pentru aprilie (Fig ), este necesară o repetare de ori a rândului de celule de mai sus Alte luni pot necesita un număr diferit de astfel de serii, așa cum se arată în Fig Orez Astfel, în primul rând, trebuie să determinați numărul necesar de rânduri în calendarul lunii După aceea, ar trebui să începeți să umpleți primul rând Variabila I indică ce zi a săptămânii este prima zi a lunii date și, prin urmare, determină numărul de celule din primul rând care ar trebui să fie Sun Lee Mar GBP Miercuri Joi Luni Sat rânduri necesare rânduri necesare Necesită rânduri Orez zace goală De exemplu, dacă prima zi a lunii este miercuri, atunci = și primele trei celule trebuie lăsate goale în primul rând al calendarului (Fig ) Expresia A T(/I) + / determină numărul necesar de celule goale În continuare, trebuie să creați Dumi Luni Mar Mier Joi Vin S Orez expresie pentru calcularea numărului necesar de rânduri (NL) In cazul in care programarea operatiilor care permit calcularea valorii NL este dificila, te poti referi la randul din programul al aplicatiei Măsurarea timpului ' Acum putem trece la programarea restului graficului tabelului calendaristic Pentru a face acest lucru, folosim bucla FOR NEXT, care repetă NL ori desenul unui rând de celule de tabel (liniile - ale imaginii de pe ecranul de afișare) Dacă este necesar, cititorul se poate referi la rândurile - din programul din anexă start Orez Astfel, se formează imaginea tabelului calendaristic și acum puteți începe să-i umpleți celulele cu numere Pentru a face acest lucru, trebuie mai întâi să poziționați cursorul în celula tabelului destinată primei zile a lunii (Fig și ) Dacă prima zi a lunii cade într-o duminică, atunci numărul ar trebui să fie afișat în câmpul ecranului cu coordonatele , [i e e HTAB ( ): VTAB ( )] Dacă prima zi a lunii cade marți, atunci numărul trebuie reprodus în poziție cu co capitolul ordonate , Deoarece primele două celule din primul rând al tabelului calendaristic pentru o lună dată trebuie să rămână goale, cursorul a primit deplasarea inițială la dreapta cu x = spații Pe măsură ce tabelul este umplut cu datele lunii, variabilele X și Y preiau valorile coordonatelor curente ale poziției numărului afișat Valoarea inițială a coordonatei Y este , iar coordonata X este ( + */), unde / este numărul de celule goale din primul rând Pentru a poziționa cursorul la afișarea numerelor pe ecranul de afișare, se folosesc operatorii VTAB(Y) și NTAB(X) Schema algoritmului pentru funcționarea acestei părți a programului este prezentată în Fig Blocurile înconjurate de o linie întreruptă formează o buclă FOR NEXT, al cărui parametru J ia valori de la / la MT(L ), unde MT(L ) este numărul de zile dintr-o lună dată Folosind schema de algoritm din Fig , puteți finaliza formarea textului programului Această parte a programului corespunde rândurilor - din programul din anexă Sarcina Determinarea bioritmurilor Scopul programului dezvoltat este de a trasa bioritmurile umane pentru orice lună Condiții preliminare specifice pentru dezvoltarea cu succes: familiaritatea cu soluția problemei Explicații pentru programator: pentru cei care au finalizat cu succes soluția problemei , dezvoltarea acestui program nu va cauza dificultăți deosebite Unii oameni (autorul cărții nu este unul dintre ei) cred că viața și comportamentul unei persoane sunt influențate de trei procese ciclice numite bioritmuri, care se caracterizează prin anumite zile de "creștere" și "declin" a activității vieții Primul dintre astfel de procese determină starea fizică a unei persoane Începutul acestui ciclu este considerat a fi ziua nașterii, în care valoarea activității este luată egală cu zero Se crede că durata ciclului de bioritm fizic este de de zile În această perioadă, are loc o creștere a activității la maxim (condițional egal cu ), apoi o scădere la minim (condițional egală cu - ), după care valoarea bioritmului fizic revine la valoarea inițială (zero) Un grafic al unui astfel de proces este prezentat în Fig În viitor, acest ciclu se repetă cu o perioadă de de zile Se crede că valorile mai mari ale programului corespund unor zile care sunt mai "favorabile" în ceea ce privește condiția fizică Măsurarea timpului a acestei persoane Zilele corespunzătoare trecerii graficului de bioritm prin sunt numite "critice" Se crede că zilele "critice" sunt potențial cele mai nefavorabile pentru o persoană din punct de vedere al forței fizice Al doilea dintre procesele ciclice menționate reflectă starea emoțională a unei persoane La fel ca și ciclul fizic, acesta contează din momentul nașterii unei persoane și se modifică periodic, singura diferență fiind că perioada ciclului emoțional este de de zile Al treilea ciclu reflectă starea intelectuală a unei persoane; este asemănător cu primele două, iar perioada de repetare este de de zile Aceste trei cicluri pot fi descrise prin următoarele expresii, în care variabila X corespunde vârstei persoanei, exprimată în zile: Ciclul fizic PH(X) = SIN ( , - Cu VK = \, graficele sunt afișate solid capitolul mi linii Mai jos este textul subrutinei folosind o variabilă care ia valori diferite: SUBPROGRAM REM PENTRU CONSTRUIREA UNUI CICLU DE BIORITMICE CU LINII DISTINȚE DIMENSIUNEA HATCH REM ESTE DETERMINATĂ DE VK REM CICLU FIZIC P = VK = REM CICLU EMOȚIONAL P = - V K = / REM CICLU INTELIGENT P = VK = / REM HPLOT , FN Y(A) PENTRU I = LA MT(M) HPLOT TO =: (I - ) + VK* , FN Y(A + I - + VK) HPLOT : ЦІ - ), FN Y(A + - ) URMĂTORUL I Pentru a apela această subrutină, puteți utiliza instrucțiuni precum următoarele: P= : VC= : GOSUB P = : VK = / : GOSUB P = : VK = / : GOSUB După execuția sa, graficele ar trebui să arate așa cum se arată în Fig Programul grafic al bioritmului uman poate fi unul dintre cele mai populare pentru demonstrarea capacităților computerului dvs personal, astfel încât cititorul este sfătuit să demonstreze o înțelegere specială atunci când îl dezvoltă și îl depanează coduri În orice moment, au existat informații care nu pot fi de încredere cu mijloacele tradiționale de comunicare și documentare Dacă este necesar să se păstreze secretul și să se protejeze unele informații de privirile și urechile indiscrete, acestea sunt de obicei criptate, adică codificate În societatea modernă, tehnologia computerizată este utilizată pe scară largă pentru a facilita procesele de codificare și decodare Acest capitol tratează unele dintre sarcinile asociate cu codificarea informațiilor Problema ia în considerare cea mai simplă metodă de criptare, codarea de substituție Vorbim despre compilarea unui mic program cu care poți cripta și apoi decripta un mesaj prin înlocuirea unor coduri cu altele (așa-numita substituție de cod) Problema este prima din această carte, dedicată procesării informațiilor textuale Scopul acestei sarcini este de a dezvolta un program care îndeplinește funcțiile unui simplu editor de text; acest editor este folosit mai târziu în problemele și Problema tratează problemele de descifrare a codurilor Ca posibilă soluție, este descris un program care face posibilă citirea unui mesaj codificat conform metodei de substituție de mai sus, chiar și în cazul în care tabelul de căutare nu este cunoscut în prealabil Conținutul sarcinii este analiza unor coduri mai complexe, care sunt mai greu de descifrat Codul luat în considerare în această problemă este practic necodabil Problema Cea mai simplă mașină de criptare Scopul programului dezvoltat: codificarea și decodificarea mesajelor arbitrare prin substituție Folosind acest program, puteți codifica (sau decoda) un mesaj introdus de la tastatura computerului, iar rezultatul procesării este afișat pe ecranul de afișare simultan cu mesajul introdus capitolul Condiții prealabile specifice pentru o dezvoltare reușită: niciuna Explicații pentru programator: se dezvoltă un program mic, dar foarte util Această sarcină presupune compilarea unui program pentru codificarea și decodarea mesajelor în cel mai simplu mod - substituție În procesul de codificare și, în consecință, decodificare, fiecare literă a textului sursă al mesajului este înlocuită cu o alta în conformitate cu tabelul de recodificare În această sarcină, Tabelul este folosit ca tabel de conversie Tabelul Litera inițială Înlocuită cu Litera inițială Înlocuită cu /L C NX B E O V ( G DI P t E K QR RN F M SL G t J H Q IS și eu J și VF WD K WX B L M ZZ R De exemplu, la codificarea mesajului "HELLO" în conformitate cu tabelul de conversie, litera "H" este înlocuită cu litera "Q", "E" - cu "K", "L" - cu "Y" și " " - prin "V" ", astfel încât rezultatul să fie "OKYYV" Decodificarea unui mesaj se reduce la procesul de codificare inversă: litera din coloana din stânga tabelului înlocuiește litera corespunzătoare din coloana din dreapta De exemplu, la decodarea mesajului "OVVIEA", prima literă " " se găsește în coloana din dreapta a tabelului de recodificare și este înlocuită cu litera corespunzătoare " " din coloana din stânga; în mod similar, litera "V" este înlocuită cu litera " ", litera " " cu litera "D", iar litera "A" cu litera "Y" Ca urmare, se dovedește că cuvântul GOODBY este codificat După cum puteți vedea, codificarea și decodarea mesajelor în acest fel este o muncă simplă, dar foarte obositoare și acesta este genul de muncă care este de obicei "alocată" unui computer Înainte de a începe programul pentru Codurile computer, ar trebui să exersați codificarea și decodarea mesajelor Mesajul trebuie codificat, iar mesajul trebuie decodat folosind Tabel Răspunsurile sunt la sfârșitul acestei pagini Mesaj : Acesta este un mesaj secret Mesajul : CXLDKN JV RHKLJSVX JDV Mai mult de jumătate din textul programului compilat este ocupat de tabelul de conversie - un analog al tabelului în limbajul BASIC: CODIFICARE DE SUBSTITUȚIE REM DAR REM TABEL DE CONVERSIE REM: A (I) - SCRISOAREA MESAJULUI ORIGINAL, B$( ) - SCRISOARE CODIFICATĂ DIM A$( ), B$( ) Ag( ) = "A":B$( ) = "C" A$( ) = "B":B$( ) = "E" AS( ) = "C":B§( ) = "G" A$( ) = "D":BS( ) = " " AS( ) = "E":B$( ) = "K" AS( ) = "F"iB$( ) ="M" A$( ) = "G":B§( ) = " " A§( ) = ''H":B$( ) = "Q" AS( ) = "I":B$( ) = "S" AS( ) = "J":BS( ) = "U" AS( ) = "K":BS( ) = "W" AS( ) = "L":BS( ) = "Y" A$( ) = "M"îB$( ) = "Z" AS( ) = "N":B$( ) = "X" A§( ) = "O":BS( ) = "V" A§(! ) = "P":B$( ) = "T" AS( ) = "Q":B$( ) = "R" A$( ) = ''R":BS' ) = "N" AS( ) = "S"iBS(О ) = "L" A$( ) = "T"îB$( ) = "J" A$( ) = "U":B,S( ) = "H" A$( ) = "V":BS( ) = "F" AS( j="W":BS( )="D" A$( ) = "X":B$( ) = "B" A$( ) "= "Y":B$( ) = "A" AS( ) = *'Z"!B$( ) = "P" AS( ) = B S( ) = AS( ) = ","îB$( ) = A$( ) = " "sB$( ) = " " OAC uojțsanb Oț J MSUy EIIETproSG) MODTOZ niND>n ns Sdr 'l Un fragment al programului corespunzător Tabelului , completat cu trei caractere (punct, virgulă și spațiu), adică cele mai comune semne de punctuație Utilizatorul introduce de la tastatura computerului un mesaj pentru a fi codificat sau decodat Imediat dupa capitolul Când introduceți un mesaj, rezultatul procesării apare pe ecranul de afișare în plus față de textul mesajului original Pe fig prezintă aspectul informațiilor pe ecranul de afișare în timpul codificării, iar fig - la decodarea mesajului ACEASTA ESTE UN EȘANȚ DE RELARE COD-ER, UN PROGRAM PENTRU ENCODB ȘI DECODIFICAȚI MESAJE FOLOSIND UN SIMPLU COD DE ÎNLOCUIRE JQSL SL C LCZTYK NHX VM GVIKN, c tnvoncz jv kxgvik CXI IKGVIK ZKLLCOKL HLSXO C LSZTYK LHELJSJHJSVX GVIK Orez Pentru a controla locația informațiilor pe ecranul de afișare, utilizați operatorii VTAB și NTAB Acest lucru necesită două variabile I și J pentru a indica numerele liniilor și JQSL SL CU LCZTYK NHX VM GVIKN, C TNVONCZ JV KXGVIK CXI IKGVIK ZKLLCOKL HLSXO C LSZTYK LHELJSJHJSVX GVlK ACEASTA ESTE UN EȘANȚ DE RELARE CODER, UN PROGRAM PENTRU CODAREA ȘI DECODIFICAREA MESAJELOR FOLOSIND UN SIMPLU COD DE SUBSTITUȚIE Orez coloana de locație a fiecărui caracter din mesajul original Deci succesiunea de afirmații VTAB I: NTAB J: GET Xg PRINT X§ vă permite să introduceți de la tastatură și să trimiteți pe ecranul de afișare fiecare caracter al mesajului original Pentru a plasa rezultatul codificării sau decodării mesajului original în jumătatea inferioară a ecranului de afișare, puteți utiliza următoarea secvență de declarații: VTAB + : HTAB J: PRINT ; La procesarea fiecărui caracter următor, locația acestuia pe ecran trebuie schimbată Algoritmul de control pentru valorile variabilelor I și J, indicând poziția caracterului procesat pe ecran, este prezentat în Fig , Codurile Orez Procesul de codificare sau decodare a caracterelor mesajelor se realizează ciclic prin intermediul operatorului FOR NEXT, care caută următorul caracter din tabelul de căutare De exemplu, PENTRU K = LA : CĂUTARE REM PENTRU CARACTER ÎN TABEL DE CĂUTARE DACĂ A§(K) = Xg ATUNCI PRINT XȘ;: VTAB + : NTAB J: PRINT Bg(K);: GOTO : REM DACĂ ESTE GĂSITĂ SURSA CHAR ÎN TABEL, IEȘIȚI SURSA ȘI CHAR DECODIFICAT URMĂTORUL K PRINT CHRS( );: GOTO : REM IF NO CHAR IN TABLE (CARAC NERECUNOSCĂTOARE), BIPURI ȘI CONTROLUL REVENI LA PROCEDURA DE INTRARE În această buclă, matricea D$ este scanată secvenţial până când este găsit un element care se potriveşte cu valoarea variabilei X$ Dacă un astfel de element este D$ (/ ) CTRL - I: MUTAȚI CURSORUL O POZIȚIE STÂNGA ( ) DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS t CURSOR CTRL-Q: IEȘIȚI DIN EDITOR CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA ( >) CTRL - N: MUTAȚI CURSORUL O POZIȚIE LA STÂNGA ("- -") Codurile CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI Caracterul de control CTRL-H ("săgeata stânga" sau Introducerea acestui caracter nu modifică textul de pe ecran, dar cursorul se deplasează cu o poziție la stânga Dacă cursorul se află în prima poziție a liniei, atunci când introduceți caracterul CTRL-H, acesta se deplasează automat în ultima poziție a liniei anterioare Dacă cursorul se află în prima poziție a primei rânduri, nu au loc modificări atunci când introduceți caracterul CTRL-H pe ecran Înainte de a introduce caracterul CTRL-ȘI (-"-) DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS f CURSOR CTRL -Q: IEȘIȚI DIN EDITOR CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA (->) CTRL - H: MUTAȚI CURSORUL O POZIȚIE ÎN LEE -) CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI După introducerea caracterului CTRL-H ( ) CTRL - H: MUTAȚI CURSORUL O POZIȚIE LA STÂNGA (^-) CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE t CURSOR CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI După ce ați tastat CTRL-E DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS CTRL - Q: IEȘIȚI EDITORUL CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA CTRL - H: MUTAȚI CURSORUL O POZIȚIE LA STÂNGA CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTERAREA LINIILOR LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE t CURSOR CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI Codurile Caracter de control CTRL-D Introducerea acestui caracter șterge caracterul din poziția curentă a cursorului, iar partea rămasă a liniei din dreapta este deplasată cu o poziție la stânga, umplând golul rezultat Efectul este doar asupra textului liniei în care se află cursorul Poziția cursorului pe ecran nu se modifică Înainte de a introduce CTRL-D DELUNSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS CTRL-Q: IEȘIȚI DIN EDITOR CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA ( >) CTRL - H: MUTAȚI CURSORUL O POZIȚIE STÂNGA C ) CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ t CURSOR CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI După ce ați tastat CTRL-D DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS CTRL - Q: IEȘIȚI EDITORUL CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA (->) CTRL - H: MUTAȚI CURSORUL O POZIȚIE STÂNGA(-) CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI LITERELE ÎN POZIȚIA ACTUALĂ t CURSOR CTRL - M: LINIE NOUĂ ("RETURNAREA CARURULUI") PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI Caracter de control CTRL-M ("Întoarcere cărucior") Introducerea acestui caracter nu modifică textul, ci mută cursorul în prima poziţie a liniei următoare Dacă cursorul se află pe ultima linie, se deplasează în prima poziție pe acea linie capitolul Înainte de a introduce caracterul CTRL-M ("ÎntoARIRE CARURUL") DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS CTRL -Q: IEȘIȚI DIN EDITOR CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA (->) CTRL - H: MUTAȚI CURSORUL O POZIȚIE STÂNGA -) CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIE NOUĂ ("RETORCIRE LA CARURĂ") f CURSOR PUTEȚI EXPANDI EDITORUL ADĂUGÂND COMENZI NOI După ce ați introdus caracterul CTRL-M ("ÎntoARIRE CARURUL") DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITORUL OFERĂ UTILIZATORULUI DIVERSE INSTRUMENTE DE EDITARE A TEXTULUI, INCLUSIV CELE DE MAI JOS CTRL -Q: IEȘIȚI DIN EDITOR CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA (->) CTRL - N: MUTAȚI CURSORUL CU O POZIȚIE LA STÂNGA ("-") CTRL - E: FORMAREA UNUI SPAȚIU ÎN POZIȚIA ACTUALĂ PRIN MUTAREA O LINIE LA DREAPTA PENTRU INSERAREA ULTERIOARĂ A O SCRISOARE CTRL - D: ȘTERGEȚI O SCRISOARE ÎN POZIȚIA ACTUALĂ CTRL - M: LINIA NOUĂ ("ÎNTOARCEREA CARURULUI") POATE FI EXTINSĂ PRIN ANEXAREA CURSORULUI f comenzi NOI La introducerea oricărui alt caracter (litera, număr sau semn), acest caracter înlocuiește caracterul care se afla anterior în poziția indicată de cursor; în timp ce acesta din urmă este deplasat cu o poziție la dreapta, la fel cum se întâmplă la introducerea unui caracter de control Înainte de a introduce caracterul "B" DEMONSTRAREA POSIBILITĂȚILOR MINI-EDITORULUI DE TEXTE MINI EDITOR ARE UN NUMĂR DE COMENZI DE EDITARE DE TEXT, INCLUSIV CELE DE MAI JOS, Codurile Orez J, capitolul CTRL - Q: IEȘIȚI EDITORUL CTRL - U: MUTAȚI CURSORUL O POZIȚIE DREAPTA ( -" CTRL - H: MUTAȚI CURSORUL O POZIȚIE STÂNGA ( ATUNCI Z = LX = * Z/ D LL = SQR( - LX * LX) Dacă butonul de control este rotit complet în sens invers acelor de ceasornic (Z= ), atunci LX=Q și LY = \ Aceasta corespunde îndreptării mingii vertical în sus Dacă poziția potențiometrului este aproape de maximul posibil atunci când se rotește în sensul acelor de ceasornic (Z^ ), atunci LX = \ și LY = , ceea ce corespunde aruncării mingii în direcție orizontală Când apărătorul este situat în punctul terenului cu coordonatele ( , ), linia de aruncare este descrisă de operator HPLOT DE LA , LA LX, - LY * , / Rețineți că coeficientul , / este destinat să corecteze distorsiunile imaginii de câmp introduse de ecranul de afișare Valoarea LY este calculată pe baza teoremei lui Pitagora, Forțele gravitaționale și spațiul cosmic (Fig ) Linia de aruncare menționată trebuie să apară pe ecran numai după apăsarea butonului de pe panoul de control al jocului, care este semnalul de începere a mișcării jucătorului care primește mingea, care în acel moment este aruncat spre linia de poartă ( , ) (LX -LYXLG / ) Orez Ciclul principal al programului în curs de dezvoltare este o secvență de operatori care calculează valorile acelor parametri de joc care descriu ceea ce se întâmplă în următorul interval de timp egal cu , s Algoritmul acestui ciclu este prezentat prin diagrama din fig Declarațiile corpului buclei sunt repetate până când apare un eveniment care oprește acest proces care se repetă periodic (de exemplu, jucătorul care îl primește iese din limite sau pasa nu se finalizează) Mai jos sunt câteva observații importante despre algoritmul luat în considerare Citirea anterioară a stick-ului este stocată în OH Soluția naturală în program ar fi să folosești afirmația IF Z = = OX THEN Cu toate acestea (după cum sa menționat deja), indicația determinată de funcția PDL (O) se poate modifica cu produs liber, fără a schimba poziția butonului de comandă Pentru a preveni consecințele negative ale unei astfel de "agitări" de citiri, utilizați operatorul IF ABC (Z - OX) X^BX + VX^DT, Y = BY DT *(VY + NY)/ , unde BX și BY sunt coordonatele vechi și X și Y sunt coordonatele bilei noi Trebuie remarcat faptul că dacă DT= , mingea nu este aruncată La începutul programului, valoarea DT este setată la , astfel încât mingea nu se poate mișca până când butonul de control al jocului este apăsat și valoarea DT este setată la , Calcularea valorilor inițiale ale vitezelor orizontale (VX) și verticale (VY); DT= \ Mingea se aruncă întotdeauna cu viteza inițială VO= ft s/ Prin urmare, folosind triunghiuri similare din fig , semi- Orez Ochii ceai VX = VCULA/ , VY = VO*LY/ Pentru a începe mișcarea mingii, variabila DT este setată la , Pentru a programa procedura de verificare dacă butonul de pornire de pe panoul de control al jocului este apăsat, consultați recomandările corespunzătoare din sarcina sau manualul de programare BASIC pentru computerul Apple II Acum totul este pregătit pentru analiza schemei algoritmului întregului program (Fig ), în care bucla principală descrisă anterior este reprezentată de un bloc (în partea de jos a figurii) Despre această schemă pot fi făcute următoarele două observații Deoarece se presupune că același buton de pe panoul de control va fi folosit atât pentru deplasarea jucătorului care îl primește, cât și pentru aruncarea mingii, este necesară o verificare Tabelul Comentarii privind părțile individuale ale programului Numerele liniilor de program Scop - Atribuirea unei valori constante a vitezei inițiale (T ) și setarea pentru a da un semnal sonor (atribuirea G$ la valoarea caracterului de control CTRL-G) - Formarea imaginii terenului de joc - Resetarea mingii și jucătorul care îl primește în poziția de start DT = pentru a anula mișcarea mingii - Verificați dacă butonul al telecomenzii a fost apăsat și eliberat Setați vechiul unghi de înclinare a liniei de aruncare (ОХ=-ІО) pentru a forma imaginea acestei linii la prima execuție a operațiilor ciclului principal - Bucla principală - Dacă valoarea funcției PDL ( ) s-a schimbat, ștergând vechea linie de aruncare și formând imaginea noii lipin - Mutați receptorul / picior; examinare, - J este la capătul câmpului - Mutați mingea (dacă DT ) și verificați dacă mingea a lovit pământul sau a ajuns la receptor - Verificați dacă butonul al telecomenzii a fost apăsat; dacă răspunsul este da, atunci atribuiți valori inițiale variabilelor VX și TE, precum și atribuiți valori DT la , - Afișează mesaje adecvate despre finalizarea sau nefinalizarea permisului etc Forțele gravitaționale și spațiul cosmic verificați funcționalitatea butonului de două ori - în stările "apăsat" și "eliberat", înainte de a începe ciclul principal Într-un program similar dezvoltat de autor, variabilei (folosită pentru a stoca citirea veche a potențiometrului panoului de control, reprezentată de funcția PDL(O)) i se atribuie valoarea - Deoarece controlerul de joc nu poate oferi o astfel de indicație, acesta garantează că linia de aruncare va fi afișată prima dată când sunt executate operațiunile buclei principale Cititorul este invitat să încerce să scrie singur programul corespunzător Aceasta poate să nu fie o sarcină foarte ușoară Prin urmare, vă putem recomanda să apelați încă o dată la fragmentele din programul discutat mai sus, precum și la programul prezentat în anexă, elaborat de autor În acest din urmă caz, informațiile prezentate în Tabelul pot fi utile Programul al aplicației este o variantă a programului , axat pe utilizarea tastaturii computerului în locul panoului de control al jocului Problema Simulator pentru controlul aterizării unei nave spațiale pe Lună Scopul programului dezvoltat este de a implementa jocul pe un computer folosind diferite posibilități de grafică pe computer și efecte sonore Cerințe preliminare specifice: familiaritatea cu soluția problemei Explicații pentru programator: programul în curs de dezvoltare este relativ mare în ceea ce privește numărul de operatori, cu toate acestea, datorită acestui fapt, ne permite să demonstrăm varietatea posibilităților de reproducere a informațiilor grafice și a sunetelor Imaginați-vă că ați zburat la o distanță semnificativă de Pământ într-o navă spațială și vă aflați la doar câțiva kilometri de Lună, apropiindu-vă rapid de suprafața acesteia Pe ecranul din fața ta este o imagine a unei nave care se grăbesc spre peisajul muntos al Lunii Sarcina ta este să "aterizezi" în siguranță pe o rampă de aterizare mică Jocurile electronice care simulează controlul unor astfel de coborâri de nave spațiale sunt extrem de populare Au fost dezvoltate multe programe diferite pentru a imita astfel de operațiuni Ele se bazează pe un principiu simplu: jucătorul controlează ultima etapă a zborului navei, încercând să aterizeze cât mai "încet" posibil Programul considerat mai jos implementează și câteva funcții conexe și anume: Capitolul ) generează o nouă imagine a peisajului lunar (conform unor legi aleatorii) cu fiecare nouă sesiune a jocului; ) formează o imagine a cerului înstelat ca un fel de fundal pe care au loc principalele evenimente; cerul Zvezanov zonă Orez ) oferă jucătorului controlul mișcării navei spațiale în două direcții în avion cu ajutorul a trei rachete de aterizare, care sunt controlate prin apăsarea tastelor corespunzătoare de pe tastatura EVL și anume: tasta "X" pentru a orienta mișcarea navei spațiale în jos (de fiecare dată când este apăsată tasta, racheta corespunzătoare dă un impuls navei, accelerând mișcarea acesteia), tastele "K" - pentru a accelera nava spre dreapta, tastele "J" - pentru a accelera La stânga Cititorul poate îmbunătăți programul prin introducerea, la cererea sa, a unor proceduri care să asigure programului noi funcții suplimentare Să începem analiza noastră a sarcinii cu o descriere a peisajului lunar reprezentat pe ecranul de afișare (Fig ) Silueta navei spațiale este destul de simplă (Figura ) Este format din instrucțiunile situate în rândul din programul Procedura de ștergere a imaginii navei se află în linia din acest program De fiecare dată când începe programul, este creat un nou desen al peisajului lunar Imaginea este formată aleatoriu în câmpul ecranului cu valori de coordonate - de-a lungul axei X În acest caz, se utilizează modul grafic al afișajului cu rezoluție înaltă Locul de aterizare are întotdeauna forma prezentată în fig Variabilele indexate L( ), L(l), , L( ) sunt folosite pentru a stoca valorile coordonatei Y, care denotă simbolic înălțimea punctelor corespunzătoare de pe peisajul lunar, abscisele din care Forțele gravitaționale și spațiul cosmic au valorile , , , Coordonatele platformei de aterizare au următoarele valori: L ( ) = , L ( ) = , £( ) = , , £ ( ) = , £( ) = Valoarea coordonatelor similare pentru restul peisajului lunar este determinată aleatoriu de fiecare dată Cititorul poate scrie corespunzătoare Orez ( ) ( , ) ( ) - ( O ) Orez un fragment general al programului care formează un peisaj de un tip complet determinat sau o formă aleatorie, dar specificat de o altă lege a distribuției variabilelor aleatoare Autorul a folosit algoritmul de mers aleatoriu (liniile - din programul ) Pentru ca imaginea de pe ecran să pară mai realistă, la cele descrise mai sus trebuie adăugate de stele strălucitoare, "împrăștiate" aleatoriu pe cer Coordonatele X și Y ale unei astfel de stele pot fi obținute cu ajutorul operatorilor corespunzători X= *RND ( ) și K=£(X)*RND( ) Deoarece ) Verificarea dacă nava a atins suprafața lunii Silueta navei propusă de autor este astfel încât una dintre doi stabilizatori vor fi neapărat atinși mai întâi, deci condiția ca nava să rămână deasupra suprafeței este următoarea: DACĂ NY SAU VY> Cititorul poate folosi condiții mai "stringente" pentru înregistrarea unui accident Acum totul este pregătit pentru munca independentă privind compilarea textului algoritmului și a programului de simulare a controlului navei spațiale care aterizează pe suprafața lunară Dacă întâmpinați dificultăți în proces, vă puteți referi la textul programului al aplicației Problema Determinarea ariei unei zone date pe un plan folosind metode numerice Scopul programului dezvoltat: implementarea pe calculator a metodelor numerice de matematică aplicată Condiții prealabile specifice pentru o dezvoltare reușită: niciuna Explicații pentru programator: tehnica de programare a unor astfel de sarcini este simplă Problemele considerate mai jos au ocupat mințile multor mari matematicieni, printre care Newton și Leibniz Deși acestea din urmă au avut o contribuție uriașă la soluționarea acestor probleme, niciuna nu a reușit să dea o descriere completă a unor astfel de soluții Aceste probleme sunt strâns legate de descoperirea lui Newton a legii gravitației universale Legenda spune că un măr (în engleză Apple) care i-a căzut pe cap a adus un serviciu de neprețuit celebrului om de știință În implementarea practică a soluțiilor unor probleme similare descrise mai jos, autorul cărții a fost ajutat de un computer personal, din întâmplare numit Apple Problema Este necesar să se descrie în limbajul de programare calculul ariei zonei umbrite (Fig ), delimitată de dedesubt și pe laturi de un segment orizontal, respectiv două verticale de linii drepte, și de la deasupra - printr-un segment de vreo curbă Luați în considerare un caz special când curba este descrisă de dependența y=V x-x și tăietura verticală Capitolul ki sunt perpendiculare pe axa x în punctele x= și x= (fig )' Valorile maxime ale ordonatelor segmentelor verticale stânga (scurte) și dreapta (lungi) sunt determinate de valorile absciselor x-i și x= , respectiv: K - - =K - = , K - - \u d r - \u d , Pentru orice valoare a lui x în pre- în cazul unui segment orizontal (de la x= la x= ), valoarea corespunzătoare a "înălțimii" zonei luate în considerare este determinată de expresia zhenie K Yux-x (Fig ) Deoarece poate fi necesar să se determine valoarea acestei "înălțimi" pentru diferite valori ale lui x, este recomandabil să utilizați serviciile unui computer, Forțele gravitaționale și spațiul cosmic prin scrierea unui program format din operator DEF FN F(X) = SQR( * X - X * X) Pentru a-l folosi, trebuie doar să tastați textul PRINT FN F(l), PRINT FN F( ) sau PRINT FN F( ) pe tastatură Ca răspuns la aceasta, computerul va calcula și afișa valoarea "înălțimii" corespunzătoare citirii de-a lungul axei absciselor , sau Pentru a estima suprafața luată în considerare, luați în considerare un dreptunghi umbrit "înscris" în el (Fig ) Deoarece lățimea dreptunghiului este , iar înălțimea este , aria sa Capitolul este Este evident că aria regiunii care înconjoară acest dreptunghi este mai mare decât Acum să trecem la fig , care arată un dreptunghi umbrit care include acest lucru ultimul Lățimea acestui dreptunghi este , înălțimea este , , deci aria este , Astfel, aria de interes pentru noi este mai mică decât , , adică din zona regiunii , , unde este estimarea "de jos" (cu o deficiență), iar , este estimarea "de sus" (cu un exces) Forțele gravitaționale și spațiul cosmic Estimări mai apropiate ale valorii zonei acestei regiuni pot fi obținute dacă fiecare dintre dreptunghiurile de mai sus este înlocuit cu perechea corespunzătoare de dreptunghiuri, așa cum se arată în Fig Pentru a face acest lucru, calculăm "înălțimea" regiunii la x = , și anume, Și * - = Apoi estimarea "de jos" (cu un dezavantaj) este determinată ca suma ariilor de cele două dreptunghiuri din fig , a Parametrii primului dreptunghi: lățimea , înălțimea , aria Parametrii celui de-al doilea triunghi: lățimea , înălțimea , aria Suma ariilor acestor dreptunghiuri ( + = ) indică faptul că aria de aria de interes pentru noi este de cel puțin nu mai puțin de Pentru o estimare "de deasupra" (cu exces), este necesar să se determine suma ariilor celor două dreptunghiuri din Fig , b Parametrii primului dreptunghi: lățimea , înălțimea , zona Parametrii celui de-al doilea dreptunghi: lățimea , înălțimea , suprafața Suma ariilor ambelor dreptunghiuri ( ) este limita superioară a zonei valorice posibile zonă Ca rezultat, obținem că următoarea relație este valabilă: С suprafață aria care este valoarea dorită O creștere suplimentară a numărului de dreptunghiuri utilizate va oferi estimări mai precise Cititorul este invitat ca exercițiu să obțină estimări similare pentru cazurile prezentate în Fig , , a (cu o deficiență) și , , b (cu un exces) Răspunsul, care în același timp Capitolul sotii de obtinut, are forma zona suprafata Dar nici aceasta nu este limita posibilelor estimări; ele pot fi rafinate pe măsură ce crește numărul de utilizări dreptunghiurile mele Desigur, odată cu creșterea numărului de dreptunghiuri, cantitatea de calcule crește Un computer poate ajuta la o astfel de muncă obositoare Trebuie doar să scrii Forțele gravitaționale și spațiul cosmic un program care introduce valoarea variabilei N și calculează valorile celor două estimări considerate mai sus cu o deficiență (Fig , a) și cu un exces (Fig , b) În același timp, pentru a obține fiecare pereche de astfel de estimări, este necesar să se stabilească o nouă valoare N - numărul de dreptunghiuri utilizate Rețineți că, deoarece lățimea bazei regiunii este , iar regiunea trebuie împărțită în N dungi egale, lățimea fiecărei benzi este determinată de formula W= /N Pentru fiecare dintre cele N dungi, este necesar să se calculeze coordonatele x, precum și înălțimea marginilor din stânga și din dreapta Ca exemplu, luați în considerare a treia bandă umbrită din Fig Lățimea fiecărei dungi este W Coordonata x a marginii din stânga a primei dungi este Prin urmare, coordonata x a marginii din stânga a celei de-a treia dungi este + *W, iar marginea sa dreaptă este + *DACĂ și anume: LE = + *-IF, RE = + *W Deoarece coordonata y este determinată de expresia K x-x , înălțimea marginii stângi a celei de-a treia benzi poate fi calculată în program folosind operatorul LH=SQR(\ *LE-LE*LE) sau L/ /=FN F(LE) În mod similar, se calculează valoarea înălțimii marginii drepte a benzii date: RH = FN F (RE), Acum putem determina valorile ariilor dreptunghiurilor umbrite din Fig Valoarea coordonatei x din stânga a-area = FNE(LE)*W; b-area=RKE(KE}*W Orez Capitolul marginea benzii І-a se calculează cu ajutorul operatorului A£= + (/ - )xT, deoarece această bandă este precedată de banda (/ - ) Valoarea coordonatei x a marginii drepte a benzii І-a este determinată cu ajutorul operatorului RE=\+I*W Valorile înălțimii marginilor din stânga și din dreapta ale acestei benzi pot fi calculate folosind următorii operatori: ZJ = FH F(LE), RH = FH F(RE) Zonele dreptunghiurilor umbrite sunt determinate de expresiile FN F (LE) * W (Fig , a) și FN F (RE) * W (Fig , b) Cititorul este încurajat să programeze estimările de mai sus pe baza utilizării N casete Dacă este necesar, vă puteți familiariza cu soluții similare conținute în programul al aplicației Este oportun să se verifice eficiența programului pentru N= , și Folosind programul dezvoltat, se pot obține estimări destul de satisfăcătoare ale zonei unei anumite regiuni De exemplu, cu N= ca urmare a pornirii programului ]ALERGA ENTER N: primim ESTIMARE BAZATĂ PE DREPTANGURI STÂNGA ESTE , ESTIMARE BAZAT PE DREPTANGURI DREPT ESTE , adică , (adică, rata natalității depășește rata mortalității) Pe de altă parte, dacă /? nu pot fi considerate realiste, deoarece în acest caz, creșterea rapidă a populației duce la supraaglomerare, lipsă de hrană și apariția altor factori care afectează semnificativ condițiile de viață ale populației, dar nu sunt luate în considerare de modelele exponenţiale Modelele similare cu un coeficient de ? rata mortalității devine mai mare Rata natalității și mortalității ceea ce este imposibil, deoarece fiecare individ poate muri o singură dată Rata natalității insectelor de pe insulă (Fig ) se calculează prin formula B(P) = , - , * P la la P Să fim atenți la faptul că la o populație mică, natalitatea este aproape de , , dar cu o Pe măsură ce populația crește, valoarea acestui indicator scade Când numărul de indivizi ajunge la , natalitatea devine zero Acum puteți scrie un program care simulează schimbarea dimensiunii acestei populații Programul trebuie dat valoarea inițială a numărului de indivizi P( ) Este necesar să se verifice performanța modelului programabil pentru diferite valori inițiale ale mărimii populației Rezultatele obținute sunt recomandate a fi comparate cu cele prezentate mai jos În cazul în care ei Capitolul discrepanțe, vă rugăm să consultați programul , prezentat în anexă JRUN SET POPULAȚIA INIȚIALĂ: AN NUMĂR , , , , , , , , , , , , , , , , , , , , , , , , , □ RUN POPULAȚIE INIȚIALĂ: AN NUMĂR , , , , L Rata natalității și mortalității Modelul considerat pare destul de plauzibil Este interesant de observat că mărimea populației se apropie de La acest număr, ratele natalității și ale mortalității devin egale între ele Exemplul În acest exemplu, este luată în considerare o întreagă familie de așa-numite modele logistice Modelele de acest tip sunt în multe privințe similare cu modelul descris în exemplul În primul dintre modelele de mai sus (exponențial), dimensiunea populației (P) se modifică de la an la an în conformitate cu ecuația P(/+ ) = R*P(/), unde constanta P este determinată de raportul dintre ratele natalității și mortalității Cu toate acestea, în modelele mai realiste, condițiile de existență și, prin urmare, ratele natalității și mortalității, depind de mărimea totală a populației Prin urmare, constanta R ar trebui înlocuită cu funcția P(P), al cărei grafic, în cazul general, este similar cu curba prezentată în Fig Când nu- Pentru o populație mare, valoarea lui P(P) este relativ mare, ceea ce reflectă condiții favorabile existenței speciei, natalitate ridicată și mortalitate scăzută Cu toate acestea, odată cu creșterea populației, condițiile de viață ale indivizilor se înrăutățesc Capitolul din cauza lipsei de hrană și a altor resurse, natalitatea scade și rata mortalității crește, ceea ce se reflectă în scăderea valorii lui R(P) Forma specifică a funcției R(P) depinde de caracteristicile speciei biologice studiate și de mediul acesteia De mai jos sunt considerate două modele parțiale simple în care /?(P) este o funcție liniară Graficele funcțiilor R(P) pentru ambele modele sunt prezentate în fig , și, respectiv, , În general, funcția liniară R(P) poate fi definită prin următoarea formulă: R = A*( -B*P) Valoarea lui B este determinată de mărimea habitatului unei specii biologice, cantitatea de hrană disponibilă etc Rețineți că atunci când P=WT, atunci /?= și populația se stinge Valoarea B reflectă raportul dintre fertilitate și mortalitate în rândul indivizilor care trăiesc în condiții favorabile Pentru mai mult Rata natalității și mortalității Pentru speciile fertile (cu o rată mare de supraviețuire a indivizilor tineri), valoarea lui A este relativ mare, pentru speciile mai puțin fertile sau speciile cu supraviețuire scăzută la o vârstă fragedă, valoarea lui A este relativ mică Luând în considerare formula pentru (P), dependența de timp a mărimii populației ia următoarea formă: P(/+ ) = /?(P (/))*/>(/) = \u d D * ( - B * P (/)) * P (/) Acest tip de model se numește model logistic Acum puteți scrie un program pentru a obține estimări cantitative ale proceselor descrise de modelul considerat, folosind următoarele funcții ca R(P): \u d , ^ ( - , , adică D \u d , și \u d , , \u d , * ( - , * P), adică D \u d , și V - , Programul ar trebui să ofere intrarea valorilor parametrilor L și B, precum și dimensiunea inițială a populației Dacă este necesar, puteți consulta programul al aplicației Următorul este un exemplu de rezultat obținut dintr-un astfel de program □ RUN MODEL LOGISTIC AL SISTEMULUI ECOLOGIC POPULAȚIA SE SCHIMBA CONFORM ECUATIEI P (I + ) \u d A * ( - B * P (I))% P (I) SETĂ O VALOARE: , SETARE VALOARE LA: SET POPULAȚIA INIȚIALĂ: AN NUMĂR , , , ₽ № Capitolul , , , JRUN MODEL LOGISTIC AL SISTEMULUI ECOLOGIC POPULAȚIA SE SCHIMBA CONFORM ECUATIEI P (I + ) = A:::( - B * P (I)) * P (I) SETĂ O VALOARE: SETARE VALOARE LA: SETARE POPULAȚIA INIȚIALĂ; NUMĂR DE ANI , , , Efectuați o serie de experimente cu diferite modele logistice Încercați să modificați valoarea parametrului A Puteți adăuga un fragment care vă permite să afișați rezultatele în formă grafică Acest lucru va facilita procesul de analiză a acestora Stop! Faceți experimente înainte de a continua lectura Mai jos sunt rezultatele unor astfel de experimente JRUN MODEL LOGISTIC AL SISTEMULUI ECOLOGIC POPULAȚIA SE SCHIMBA CONFORM ECUATIEI P (I + ) = A * ( B * P (I)) * P (I) Rata natalității și mortalității SETĂ O VALOARE: , SETARE VALOARE LA: SET POPULAȚIA INIȚIALĂ: AN NUMĂR , , * L , ZJRUN MODEL DE LOGISTICA SISTEMUL ECOLOGIC POPULAȚIA SE SCHIMBA CONFORM ECUATIEI P (I + ) = A * ( - B * P (I)) * P (I) SETĂ O VALOARE: SETARE VALOARE LA: SET POPULAȚIA INIȚIALĂ: AN NUMĂR , , * vO Capitolul Trebuie remarcat faptul că în al doilea exemplu, dimensiunea populației fluctuează aproximativ în intervalul - La A > , , astfel de fenomene sunt adesea observate Aceleași fluctuații ale numărului anumitor populații se observă în natură Numărul unor specii se modifică ciclic, atingând un minim și un maxim Mai jos sunt rezultatele simulării pentru L = , JRUN MODEL LOGISTIC AL SISTEMULUI ECOLOGIC POPULAȚIA SE SCHIMBA CONFORM ECUATIEI P (I - ) \u d A * ( - B * P (I)) * P (I) SETĂ O VALOARE: , SETARE VALOARE LA: SETARE POPULAȚIA INIȚIALĂ; AN NUMĂR , Rata natalității și mortalității , P - , - , - , - , - , E+ - , E - EROARE POVERFLOW ÎN * Acest mesaj apare de obicei pe ecran atunci când un program a făcut o eroare În realitate, nu există nicio eroare Aceasta este doar o dovadă a imperfecțiunii modelului luat în considerare Trebuie remarcat faptul că P( ) = , Dacă ? = , x ( - , x , ) = - , , atunci P( ) = - , Modelul prezice o dimensiune negativă a populației, ceea ce cu siguranță nu are o dimensiune negativă a populației are sens Aceasta înseamnă că populația era atât de mare, iar cantitatea de hrană per individ atât de mică, încât întreaga populație a dispărut Programul trebuie completat cu un operator care verifică semnul valorii calculate a funcției P (/+ ) Cu valori negative ale funcției Р (/+ ), valoarea acesteia trebuie presupusă a fi egală cu zero Și mai bine, dacă rezultatul obținut va servi drept bază pentru revizuirea modelului În astfel de cazuri, există întotdeauna indivizi în natură care au reușit (sau au avut noroc) să supraviețuiască Este aproape de necrezut că o întreagă populație ar putea dispărea Astfel de fenomene pot fi modelate în diferite moduri Este posibil, de exemplu, să adăugați o instrucțiune în program care să verifice dacă funcția P(/~H) a luat o valoare mai mică decât și, dacă da, ar seta valoarea lui P(/+ )= Este și mai bine să folosiți elementul noroc în astfel de scopuri Când dimensiunea populației devine mai mică de , este selectat un număr aleatoriu de indivizi supraviețuitori, încadrați în intervalul - Considerarea problemei s-a încheiat, dar cititorul poate fi încurajat să continue experimentele și să încerce să construiască alte modele de sisteme ecologice folosind idei noi și propriile metode De exemplu, valoarea lui R poate depinde nu numai de P(/), ci și de P(I- ), adică de mărimea generației anterioare De asemenea, puteți încerca să modelați schimbarea numărului de grupe de vârstă individuale Noroc! } Un mesaj de sistem informatic despre o eroare numită "OVERFLOW", care apare la efectuarea operațiunilor specificate de operatorul programului BASIC la rândul - Notă, ed Capitolul Sarcinile și sunt, de asemenea, legate de ecologie Problema tratează un joc ecologic, în timp ce problema este dedicată modelării unui ecosistem cu două specii concurente Sarcina Crearea unui joc ecologic "Fermier-cultivator de cactus" Scopul programului dezvoltat: simularea pe computer a unui sistem ecologic cu resurse limitate Precondiții specifice pentru dezvoltarea cu succes: stăpânirea tehnicii de programare problema Explicații pentru programator: programul în curs de dezvoltare este relativ lung, dar nu foarte complicat Mențiunea cactușilor în titlul acestui joc, care urmează să fie programat pentru a fi executat pe computer, este foarte condiționată Acest joc este similar cu cel considerat în problema și are scopul de a distra sau de a introduce problemele unui sistem ecologic cu resurse limitate Terenul de joc este acoperit cu cactusi Alegerea acestor plante particulare se datorează singurului motiv - simplitatea imaginii lor pe ecranul de afișare atunci când o folosești în modul grafic de rezoluție scăzută Jucătorul joacă rolul unui cultivator de cactus Mișcându-se pe ecran, fermierul strânge cactusi și îi duce la casă Scopul jocului este de a aduna cât mai mulți cactusi în ani În fiecare an, pe câmp se coace o nouă cultură de cactusi Cu toate acestea, mărimea recoltei depinde de câți cactusi au rămas pe câmp în anul precedent Astfel, problema folosește un model logistic (problema ) pentru a determina modificarea anuală a numărului de cactusi Jocul necesită abilități în a colecta cactusi și în alegerea unei strategii Dacă într-un an jucătorul a recoltat prea mulți cactusi, atunci anul viitor recolta va fi mică Mai jos este o descriere detaliată a acestui joc, deoarece textul programului corespunzător este destul de lung Cititorul poate folosi doar principiile de bază ale construcției sale și își poate dezvolta propriul joc, semnificativ diferit de acesta La compilarea programului se folosește un mod grafic cu o rezoluție scăzută x) Împărțiți ecranul în d) În modul grafic cu rezoluție scăzută, spațiul ecranului de afișare este împărțit într-o zonă grafică în partea de sus a ecranului și o zonă de text în partea de jos a ecranului, permițând patru linii de text să se potrivească Gra" Rata natalității și mortalității de zone dreptunghiulare, fiecare dintre ele poate conține sau nu o imagine de cactus Vederea generală a ecranului este prezentată în fig Unul dintre elementele de ecran adresabile cu coordonate ( , ) are un scop special Adăpostește o casă de fermier O O treizeci ІB B bib -U uj|l і] w L u kushil UI L t g t IW IU IU Щ L IJ ul L BB UJ UJ L T J w W L TJJ TTUȚ TP "-ІУ Щ L UB ujw t B r -U UJNJ ( Orez Poziția fermierului pe ecran este indicată de un element de descompunere Pentru a muta fermierul (selectați un alt element de descompunere), utilizați butoanele de pe panoul de control Zona fizică a ecranului conține elemente de descompunere de X , adresate în intervalul - în fiecare direcție Imaginea unui element adresabil este un mic pătrat pe ecranul de afișare și este folosită în această problemă pentru a indica poziția fermierului și a casei sale pe terenul de joc, - Aprox ed Capitolul joc, așa cum se face în jocul lui Tonky prin labirint" din problema } Colectarea de cactusi are loc după cum urmează: când se deplasează pe câmpul ecranului, fermierul "locește" un cactus și îl ia acasă Fermierul are o pungă care nu poate ține mai mult de cactusi o dată Astfel, fermierul poate colecta până la cinci cactusi pentru fiecare excursie pe câmp Cu toate acestea, doar acei cactusi care sunt aduși acasă sunt incluși în recoltă Dacă fermierul încearcă să pună un alt cactus într-o pungă deja plină, se aude un semnal sonor și cactusul rămâne în locul inițial În fiecare an, timpul pentru recoltarea cactusilor este limitat În programul , care este prezentat în anexă și este o posibilă soluție la problema luată în considerare, pentru a afișa numărul de cactusi colectați în zona de text (partea inferioară a câmpului ecranului), litera latină "U" este reprodusă la fiecare când un alt cactus intră în casa fermierului Alegerea acestei scrisori se explică prin asemănarea sa îndepărtată cu silueta unui cactus Pentru a indica numărul de generații (ani) de cactus rămase pentru recoltele ulterioare, literele "G" sunt reproduse în colțul din dreapta jos al zonei de text: o literă pentru fiecare an (generație) rămas Ținând cont de observațiile făcute, mijlocul jocului poate corespunde unei imagini de pe ecran asemănătoare cu cea reprodusă în Fig Deoarece ferma este situată în colțul din dreapta jos al câmpului ecranului de afișare în modul de rezoluție scăzută, nu este nevoie să folosiți un marcator special pentru a indica poziția sa Modificarea numărului de cactusi în anul următor este determinată în programul menționat de următorul raport: P \u d * ( - , xP) * P ttt numărul de cactuși numărul de cactuși în anul nou în anul vechi Pentru a exclude posibilitatea dispariției complete a cactusilor în condiții nefavorabile, a fost adăugat un operator la textul programului DACA P D ATUNCI SW = : GOTO : REM DACA PRIMA VALOARE ESTE PREA MARE, SETATI SW=-hl SI ACEST PUNCT NU ESTE ARATAT PE GRAFIC DACĂ Y( ) O, Z \ dacă - x - y Scriem această ecuație sub forma unei formule generalizate n sau în BASIC Z = SQR(( - x * X - Y și: Y + ABS( - X * X - Y * Y)) / ) Folosirea formulei în această formă evită apariția unui mesaj de eroare precum EROARE CANTITATE ILLEGALĂ atunci când programul rulează Deoarece programul este conceput pentru a construi o imagine a unei suprafețe definite de o funcție arbitrară, este de dorit să se folosească doar o singură declarație DEF FN F în program pentru a o descrie, similar cu modul în care are loc în programele problemei Pentru exemplu, DEF FN F(X,Y) = SQR(( - X * X - Y * Y + ABC( - X * X - Y * Y) / , Cu toate acestea, încercarea de a executa această instrucțiune are ca rezultat un mesaj de eroare: ] DEF FNE(X,Y) - = SQR( ( - X * X - Y f Y + ABC( - X * X - Y * Y) ) / ) ]ALERGA ? EROARE DE SINTAXĂ ÎN Motivul erorii este că software-ul Applesoft permite utilizarea Într-adevăr, de exemplu, pentru x = și y = t - x - y = - - = m/- +|- | = - și y a PENTRU x~/r și y=^ -x~-y"=* -in Z / -ні / і Capitolul o singură variabilă Prin urmare, operatorul ar trebui reprezentat ca DEF FN F(Y) = SQR( ( - X * X - YY + ABC( - X * X - YY)) / ) Cu această notație, variabila X a programului este încă folosită ca argument x al funcției /(%, y) Prin urmare, este necesar să se atribuie valoarea corespunzătoare variabilei înainte de fiecare apel la funcția FN F(Y) În caz contrar, ultima valoare care i-a fost atribuită va fi folosită ca valoare a lui X După setarea funcției de descriere a suprafeței, puteți trece direct la construcția unui astfel de grafic Ideea principală a metodei propuse este de a combina un număr de secțiuni de suprafață prin planuri paralele în planul imaginii La construirea fiecărei secțiuni, se utilizează următoarea secvență de operatori: HGR : HCOLOR = : ROQUE - : REM FULL FORMAT MOD GRAFICE DE ÎNALTA REZOLUȚIE DEF FN Z(Z) = - " Z: FUNCȚIA SCALA REM Z-AXIS DEF FN F(Y) = SQR (( - X * X - Y * Y + ABC ( - X * X - Y ::: Y)) / ): REM Y = - , : REM VALOAREA CELE MAI MICĂ Y=- , DY = , / : REM PITCH Y = , / PENTRU I = LA : CICLU REM PENTRU CONSTRUIREA SECȚIUNII URMĂTOARE CU DE PUNCTE Z - FN F(Y): CALCUL REM Z-VALOARE HPLOT I, FN Z(Z): CONSTRUCȚIE PUNCT CURBA REM CU SCALA Z Y = Y + DY: REM INCREMENTARE VALOAREA Y URMĂTORUL I Imaginea unui număr de secțiuni ale suprafeței cu valori X de la - , la + , poate fi obținută prin completarea fragmentului de mai sus cu mai mulți operatori: HGR : HCOLOR = : ROQUE - : REM FULL FORMAT MOD GRAFICE DE ÎNALTA REZOLUȚIE DEF FN Z(Z) = - * Z: FUNCȚIA SCALA REM Z-AXIS DEF FN F(Y) = SQR ( ( - X * X - Y * Y + ABS ( - X * X - Y * Y) ) / ): REM X = - , Y = - , : REM VALOAREA CELE MAI JUSĂ Y = - , DY = , / : REM PITCH Y = , / PENTRU I = LA : CICLU REM PENTRU CONSTRUIREA SECȚIUNII URMĂTOARE CU DE PUNCTE Instrumente de grafică pe computer Z = FN F(Y): CALCUL REM Z-VALOARE HPLOT * I, FN ,Z(Z): REM Punct plot curba Z-SCALA Y = Y + DY: REM INCREMENTARE VALOAREA Y URMĂTORUL I X = X - DACĂ X / ATUNCI C = C - : REM ACEASTĂ CONDIȚIE ESTE ECHIVALENT DE PIERDERE, DECI $ ESTE DECUTAT DIN BANII ACTUALI AI JUCĂTORULUI DACĂ C = ATUNCI L = L + : GOTO : REM VERIFICAȚI DACĂ SE PIERDĂ TOȚI BANII DACĂ C = ATUNCI W = W + : GOTO : REM GOTO PRINT: REM PRINT "NUMĂR DE SESIUNI DE JOC CÂŞTIGATE =";W PRINT "NUMĂR DE SESIUNI DE JOC PIERDUTE =";E PRINT "PROBABILITATEA CÂȘTIGEI ="; W / (L + L) GOTO Programul GR: CULOARE = : REM Aplicație CO DIM D( ): REM D(L) - CONTORUL NUMĂRULUI DE PMBĂRI ALEATORII ÎNCHEIATE LA DISTANȚA L PRINT " ";: IEȘIRE REM NUMERE ÎN FONDUL GRAFULUI PRINT " " PENTRU N LA : REM RUN LOOP PMBĂRI ALEATORII X = : REM COORDONAREA ÎNCEPEREA PLEMEI PENTRU I = LA : REM SINGLE WALK LOOP DE DE PASI X = X + " INT( * RND(l)) - : REM Efectuați PASUL URMĂTOR URMĂTORUL I X = ABS(X): CALCUL REM AL TRAFICULUI LA DISTANȚA CA VALOARE ABSOLUTĂ A COORDONATEI X PLOT X, -D(X): REM ADĂUGAȚI UN BLOC LA Plot CORRESPONDANT D(X) = D(X) -I- : REM CREȘTE CU DIN SUMA CORESPONDANTĂ URMĂTORUL N Programul HGR : HCOLOR : REM SET MOD GRAFIC DE ÎNALTĂ REZOLUȚIE; CULOARE SELECTABILE PENTRU DISPLAY GRAFIC - ALB ON DEF FN Х(Х) = + " X: REM DESCRIEREA FUNCȚIEI DE CONVERSIE A pașilor rătăciți ÎN COORDONATE DETERMINATE DE CALCULATOR PE AXA X DEF FN Y(Y) = - " Y: REM DESCRIEREA FUNCȚIEI DE CONVERSIE A pașilor rătăciți ÎN COORDONATE PE AXA YORDINATĂ DEFINITĂ DE CALCULATOR X = : Y = : REM COORDONATE INIȚIALE PENTRU POZIȚIA CALATORULUI REM URMĂTOARELE TREI LINII ALE PROGRAMULUI CONTIN OPERATORI FORMARE UN PĂTRAT - O IMAGINĂ CONDIȚIONATĂ A UNUI CALATOR - ÎN POZIȚIA ÎN CARE EL SE găsește în prezent A \u d FN X (X): B \u d FN Y (Y): HPLOT A - , B LA A + , - HPLOT A - , B LA A + , B HPLOT A - , B - LA A + , B - PENTRU DLY = LA : NEXT DLY: REM DELAY CYCLE REM URMĂTOARELE TREI LINII ALE PROGRAMULUI CONTIN OPERATORI CARE FORMEAZĂ O DURĂ LĂSASĂ DE UN CALATOR CARE MERGE ÎN URMĂTOAREA POZIȚIE HCOLOR = : HPLOT A - ,B + LA A + ,B + HPLOT A - , B - LA A + , B - HPLOT A - B: HPLOT A + B HCULOARE = : REM REVENIRE LA AFFIȘUL ALB R = INT( * RND(l)): REM SELECTARE NUMERE , , SAU ALEATOR DACĂ R = ATUNCI X = X + : DACĂ X > ATUNCI TERMINĂ: REM DACĂ R = ATUNCI PASUL DREPT EXAMINARE, soi Aplicație ESTE IMAGINEA CALATORULUI PE ECRAN DACĂ R ?= ATUNCI X = X - : DACĂ X ATUNCI TERMINĂ: REM DACĂ R = ATUNCI TREBUIE VERIFICAREA DACA IMAGINEA CALATORULUI ESTE IN ECRAN DACĂ R = ATUNCI Y = Y - : DACĂ Y SAU Y ATUNCI OB = OB + : GOTO : REM Aplicație REM ESTE IGNORAT ȘI SĂRIT PÂNĂ LA ÎNCEPUTUL UNEI NOI MERCI REM APLICAREA UNUI PUNCT PE ECRAN DACĂ C(X, Y) = ATUNCI F = F : REM CREȘTE HA VERIFICARE CONTATOR EȘU DACĂ H >= L - L : REM CREȘTE CU NUMĂR DE TESTE PRINT "FROM TOTAL ";T;" VERIFICARI PRINT F;" VERIFICARE CU REZULTAT NEGAT' PRINT "PARTE DIN TESTE CU REZULTAT NEGAT = ";F / T PRINT : REM SKIP LINE GOTO DAR: REM REPEAT GAME Programul Rem N - : REM N - NUMĂR DE CAPE PENTRU N = LA : DACĂ RND(l) = ) REM IEȘIRE REM: DY ESTE NUMĂRUL ORIGINAL AL ZILEI SPECIFICATE RELATAT CU DECEMBRIE REM REM REM DISPLAY MESAJ DE EROARE DACĂ DATA ESTE INCORECTĂ ȘI CEREȚI O DATA NOUĂ REM DACĂ SW = ATUNCI : REM DACĂ SW = , INSTRUCȚIUNI - NU EXECUȚI ȘI SARIȚI LA LINIA DIM MT ( ) MT(I) = : REM ÎN ZIUA IANUARIE Aplicație MT( ) = : MT ( ) = : MT ( ) = : MT ( ) = : MT ( ) = : MT ( ) = : MT ( ) = : MT ( ) = : REM MT ( ) = : REM MT ( ) = : REM REM REM REM REM REM REM REM ÎN MARTIE ZILE IN - - in in in in in in in in APRILIE ZILE ZIUA MAI IUNIE ZILE ZIUA IULIE ZIUA AUGUST SEPTEMBRIE ZILE OCTOMBRIE ZILE NOIEMBRIE ZILE DECEMBRIE ZILE SW = : GOSUB MT ( ) = + L: REM ÎN SAU DE ZILE FEBRUARIE (AN bisect) DACĂ M ATUNCI DACĂ D MT (M) atunci DACĂ Y INT (Y / ) * ATUNCI L = : RETURN: REM DACA Y INT (Y / ) * ATUNCI L = : RETURN: REM DACĂ Y ESTE DIVIZIBIL CU FĂRĂ RĂMĂ ȘI NU ESTE DIVIZIBIL CU , ANUL ESTE UN AN bisect DACĂ Y = INT (Y / ) * ATUNCI L = : RETURN: REM DACĂ Y ESTE IMPARTIT LA , ATUNCI ANUL ESTE UN AN bisect L = RETURN: REM Programul REM PROGRAMUL ZIULUI SĂPTĂMÂNII ORICE REM DATE DUPĂ DIM NMS ( ): MEMORIE DE REZERVĂ REM PENTRU NUMELE ZILELOR SĂPTĂMÂNII NMS ( ) = "VINERI" NM$ ( ) = "SÂMBĂTĂ" NMS ( ) = "DUMINICĂ" NM$ ( ) = "LUNI" NM§ ( ) = "MARȚI" NM$ ( ) = "MIERCURI" NMȘ ( ) = "JOI" NOME : VTAB ( ) : REM ȘTERGEREA ECRANULUI DE AFIȘARE ȘI POZIȚIONAREA CURSORULUI ÎN CENTRUL CÂMPULUI ECRANULUI PRINT "INTRODUCEȚI VALORI NUMERICE PENTRU LUNĂ, ZI ȘI AN" INTRARE M,D,Y GOSUB I \u d DY - * INT (DY / ) PRINT NM$ (I) sfârşit REM DATEI: SUBPROGRAM DE DETERMINARE NUMĂR DE SERIE REM AL ZILEI PRECIZATE RELATĂ LA DECEMBRIE REM DATE DE INTRARE REM: L - LUNA ( - ) REM D - ZIUA LUNII REM Y - AN (>= ) REM RE/M IEȘIRE: DY ESTE NUMĂRUL DE SERIE AL ZILEI SPECIFICATE RELATAT CU DECEMBRIE REM PROCEDURA REM PENTRU ANALIZA CORECTEȚII DATEI SETATE, MESAJ DE EROARE REM DISPLAY DACĂ DATA ESTE INCORECTĂ ȘI CEREȚI O DATA NOUĂ REM Aplicație DACĂ SW = ATUNCI : REM DACĂ SW = , INSTRUCȚIUNI - NU EXECUȚI ȘI SARIȚI LA LINIA DIM МТ( ) МТ( ) = : REM ÎN ZIUA IANUARIE MT( ) = : MT( ) = : MT( ) = : MT( ) = : MT( ) = : MT( ) = : MT( ) = : MT ( ) = : MT( ) = : MT( ) = : REM ÎN MARTIE ZIUA REM ÎN APRILIE ZILE REM ÎN MAI ZIUA REM ÎN IUNIE ZILE REM ÎN IULIE ZIUA REM ÎN AUGUST ZILE REM ÎN SEPTEMBRIE ZILE REM ÎN OCTOMBRIE ZILE REM ÎN NOIEMBRIE ZILE REM ÎN DECEMBRIE ZILE SW = : GOSUB MT( ) = + L: REM ÎN SAU DE ZILE FEBRUARIE (AN bisect) DACĂ M ATUNCI DACĂ D MT(M) atunci DACĂ Y INT (Y / ) * ATUNCI L = : RETURN: REM DACA Y INT(Y / ) * ATUNCI L = : RETURN: REM DACA Y = INT (Y / ) * ATUNCI L = : RETURN: REM L = RETURN: REM Programul DIM NT$( ): REM REZERVE MEMORIE PENTRU TABEL DE NUMELE LUNII ON NT$( ) = "IANUARIE" NT$( ) = "FEBRUARIE" NT$( ) = "MARTIE" NT$( ) = "APRILIE" NTS( ) = "MAI" NT$( ) = "IUNIE" NTȘ( ) = "IULIE" NT$( ) = "AUGUST" NT$( ) = "SEPTEMBRIE" NT$( ) = "OCTOMBRIE" NT$( ) = "NOIEMBRIE" NTS( ) = "DECEMBRIE" INTRODUCEȚI "INTRODUCEȚI NUMELE LUNII";MN$ REM CĂUTARE PENTRU LUNA SPECIFICATĂ ÎN TABEL PENTRU M = LA DACĂ NTS(M) = MN$ ATUNCI NEXT'M MESAJ DE EROARE REM DISPLAY DACĂ LUNA NU ESTE GĂSITĂ ÎN TABEL TIPARĂ "NUMELE LUNII INCORECT": GOTO INTRARE "INTRODUCEȚI AN"; D = : REM D - NUMĂRUL DE SERIE AL ZILEI DIN LUNĂ GOSUB : REM CALL TO DATEI SUBPROGRAM I = DY + - * INT((DY -|- ) / ): REM NOME HT AB ( ) PRINT NM$;" ";Y VTAB ( ) PRINT "SUN LUN TU WE THUR FR SA" PRINT" " NL = INT(( + MT(M) I)/ ): REM Aplicație REM DISPLAY TABEL PE ECRAN DE DISPLAY PENTRU J = ATUNCI NL: REM LOOP DISPLAY NL RIND CELULE PRINT " PRINT " PRINT URMĂTORUL J Y = : REM START UMPLEȚI PRIMUL RÂND DE CELELE DIN CALENDARUL TABELUI CU NUMERE X = + * I: REM SETAREA COORDONATEA POZIȚIEI CURSORULUI DE-A lungul AXEI X PENTRU PRIMA ZI A LUNII PENTRU J = LA MT(M) VTAB (Y): NTAB (X): POZIȚIE REM CURSOR HOME PRINT J; DACĂ X "" APOI PRIMĂ CHRS ( ) ; : REM DACĂ UN CARACTER ÎN ULTIMA POZIȚIE A UNUI ȘIR NU ESTE UN SPAȚIU, VA FI PIERDUT, INDICAT DE UN BIP DACĂ P = ATUNCI GOTO : REM EXTINDEREA UNUI ȘIR PRIN INCLUDEREA SPAȚIULUI ÎN POZIȚIA NU ÎNSEAMNĂ Aplicație TP = :FP = C$ (L, TP) = C$ (L, FP) : VTAB L: HTAB TP; PRINT C$ (L, TP); TRANSFER REM ȘI CARACTER DE IESIRE DACĂ FP > P ATUNCI FP = FP - :TP = TP - : GOTO ; REM CONTINUAȚI FUNCȚIONAREA LA POZIȚIA ACTUALĂ C$ (L, P) = " ": VTAB L: HTAB P: PRINT " : GOTO : REM IEȘIȚI UN SPAȚIU ÎN POZIȚIA ACTUALĂ ȘI REVENȚI CONTROLUL LA PROCEDURA PRINCIPALA TP = P:FP = P + VTAB L : HTAB TP: POZIȚIE CURSOR REM IF FP = THEN Cg (L, ) = " ": PRINT " : GOTO ; REM ULTIMUL CARACTER - SPAȚIU, REVENIRE LA PROCEDURA PRINCIPALĂ CS (L, TP) = Cg (L, FP): PRINT Cg (L, FP); : TRANSFER REM ȘI CARACTER DE IEȘIRE TP = TP + :FP = FP + : REM CREȘTEȚI CONTORELE TP și FP CU GOTO VTAB : IMPRIMĂ "Sfârșitul LUCRĂRII" Programul REM MINI EDITOR DE TEXTE REM NOME DIM Cg ( , ): ZONA DE MEMORIE REM PENTRU PROCESAREA TEXTULUI MESAJULUI PENTRU L = LA : PENTRU P = LA CȘ (L, P) = " NEXT P: NEXT L: REM CLEAR TEXT BUFFER ACASĂ : CURĂȚARE REM ECRAN L = :P = : REM SETARE CURSOR PENTRU ECRAN POZIȚIA ACASĂ VTAB L: HTAB R GET Xg DACĂ Xg = CHRg ( ) ATUNCI : PROGRAM REM SFÂRȘITUL CARACTERULUI DE INTRARE CTRL-Q DACĂ Xg = CHRS ( ) ATUNCI : REM INTRODUCEREA CARACTERULUI CTRL-U DECAZĂ CURSORUL ÎN AVÂND DACĂ Xg = CHRg ( ) ATUNCI : INTRODUCEREA REM CTRL -H PROVOCĂ MUTAREA CURSORULUI ÎNAPOI DACĂ Xg = CHRg ( ) ATUNCI : INTRAREA REM A CARACTERULUI CTRL -E EXTINDE LINIA PENTRU A INCLUDE SPAȚIU DACĂ Xg == CHRg "" ATUNCI TIPARĂ CHRS ( ) ; : REM DACĂ UN CARACTER ÎN ULTIMA POZIȚIE A UNUI ȘIR NU ESTE UN SPAȚIU, VA FI PIERDUT, INDICAT DE UN BIP DACĂ P = , ACUM GOTO : REM EXTINDEREA UNUI ȘIR PRIN INCLUDEREA UNUI SPAȚIU LA POZIȚIA NU ÎNSEAMNĂ TP = -FP = C$(L, TP) = C$(L, FP) : VTAB L: NTAB TP: PRINT C$(L, TP): TRANSFER REM ȘI CARACTER DE IEȘIRE DACĂ FP > P ATUNCI FP = FP - : TP = TP - : GOTO : REM CONTINUAȚI OPERAȚIA LA POZIȚIA ACTUALĂ CS (L, P) = " " : VTAB L: NTAB P: PRINT " : GOTO : REM IEȘIȚI UN SPAȚIU ÎN POZIȚIA ACTUALĂ ȘI REVENȚI CONTROLUL LA PROCEDURA PRINCIPALA TP = P : FP = P + VTAB L : NTAB TP: POZIȚIA CURSORULUI REM DACĂ FP = ATUNCI C$ (L, ) = "PRINT" : GOTO : REM ULTIMUL CARACTER - SPAȚIU, REVENIRE LA PROCEDURA PRINCIPALĂ CS (L, TP) = C$ (L, FP): PRINT C$ (L, FP) ; : TRANSFER REM ȘI CARACTER DE IEȘIRE TP = TP + :FP = FP + : REM CREȘTE CU CONŢINUTUL CONTORURILOR TP ŞI FP GOTO DIM ST ( ): REM REZERVĂ MEMORIE PENTRU TABELE DE FRECVENȚĂ GENERARE TABEL DE FRECVENȚĂ REM REM PENTRU = LA : CT (I) = : NEXT I: REM PENTRU L = LA : PENTRU P = LA Z = ASC (C$ (L, P)): DACA ATUNCI PRINT U$ GET V$: REM INTRODUCERE AL DOILEA CARACTER DE LA TASTATURA Z = ASC (V$): DACA Z ATUNCI PRINT VS Aplicație PENTRU L = LA : PENTRU P = LA DACĂ C$ (L, P) = US THEN C$ (L, P) = V$: GOTO DACĂ C$ (L, P) = V$ ATUNCI C$ (L, P) = U$: GOTO URMĂTORUL R: URMĂTORUL L GOTO VTAB L: NTAB P: PRINT CS (L, P) : NEXT P: NEXT L GOTO Programul REM " * * * * MINI EDITOR DE TEXT * * * * * Software-ul REM NOME DIM С$( ): ZONA DE MEMORIE REM PENTRU TEXTUL MESAJULUI PROCESAT PENTRU L = LA : PENTRU P LA CS(L,P) = " NEXT P: NEXT L: REM CLEAR TEXT BUFFER ACASĂ : CURĂȚARE REM ECRAN L = :P = : REM SETARE CURSOR PENTRU ECRAN POZIȚIA ACASĂ VTAB L OBȚINE X$ DACĂ XS = CHRS ( ) ATUNCI : REM PROGRAM SFÂRȘIT AL SIMBOLULUI INTRARE CTRL-O DACĂ X$ =- CHR$ ( ) ATUNCI : REM INTRODUCEREA CTRL - U PROVOCĂ CU CURSORUL ÎN AVÂND DACA XS = CHRS ( ) ATUNCI : INTRODUCEREA REM CTRL - H PROVOCĂ MUTAREA CURSORULUI ÎNAPOI DACĂ XS -=■- CHR$ ( ) ATUNCI : REM INTRARE CARACTERE CTRL - E EXTINDE LINIA PENTRU A INCLUDE SPAȚIU DACĂ X$ = CHR$ ( ) ATUNCI : REM INTRARE CARACTER CTRL - D PROVOCĂ ȘTERGEREA CARACTERULUI DIN ȘIR DACĂ X$ = CHRS ( ) ATUNCI : INTRODUCEREA REM A CARACTERULUI CTRL-M CAUZELE MERGE LA ÎNCEPUTUL LINIIUI URMĂTOARE PRINT XS; :CS(L,P) = X$: REM SCRIEȚI UN CARACTER NOU ÎN ZONA DE MEMORIE DE TEXT DE MESAJE P = P + : F P = ATUNCI P = :L = L + : DACA L = ATUNCI P = :L = : REM CURSORUL DEPLAȚI DREAPTA GOTO P \u d P - : DACA P \u d ATUNCI P \u d : L \u d L - : DACA L \u d ATUNCI L \u d ; P \u d GOTO R \u d : L - L -} - : DACA L \u d ATUNCI L \u d GOTO DACĂ CS(L, ) " " ATUNCI APRIȚI CHR$( ) ;: REM DACĂ UN SIMBOL ÎN ULTIMA POZIȚIE A LINIILOR NU ESTE UN SPAȚIU, VA FI PIERDUT, AȘA SE SEMNIFICA CU UN BIP DACĂ P = ATUNCI GOTO : REM EXTINDEREA UNUI ȘIR PRIN INCLUDEREA SPAȚIULUI ÎN POZIȚIA NU ÎNSEAMNĂ Aplicație TP = :FP = C$(L,TP) = C$(L,FP); VTAB L: HTAB TP: IMPRIMARE C$(L,TP): TRANSFER REM ȘI CARACTER DE IESIRE DACĂ FP > P ATUNCI FP = FP - :TP = TP - : GOTO : REM CONTINUAȚI OPERAȚIA LA POZIȚIA ACTUALĂ CS(L,P) = " ":VTAB L: HTAB P: PRINT " GOTO : SPAȚIU DE IEȘIRE REM LA POZIȚIA ACTUALĂ ȘI RETURNAREA CONTROLULUI LA PROCEDURA PRINCIPALA TP = P:FP = P + I VTAB L:HTAB TP: POZIȚIA CURSOR REM DACA FP = ATUNCI C$(L, ) = " PRINT " GOTO : REM ULTIMUL CARACTER - SPAȚIU, REVENIRE LA PROCEDURA PRINCIPALA C$(L,TP) = C$(L,FP): PRINT C$(L,FP);t TRANSFER REM ȘI IESIRE CARACTER TP = TP + :FP = FP + ȘI REM CREȘTEȚI CONTORELE TP ȘI FP CU GOTO CODURI REM CODURI DE SCHIMBARE ALEATORIE REM VTAB : HTAB INTRODUCERE "INTRODUCEȚI VALOAREA DE START A ARGUMENTULUI FUNCȚIEI RND";SEED IF SEED > = THEN PRINT CHR$ ( ): GOTO X = RND (SEED): REM SETARE VALOAREA DE START LA ARGUMENTUL FUNCȚIEI RND PRINT "SELECTARE MODUL DE OPERARE: C - CODARE; D - DECODARE" PRINT "SPECIFICAȚI MODUL DE LUCRU (C SAU D) GET X$ DACĂ X$ = "D" atunci DACĂ Xg = "C" ATUNCI PRINT CHR$ ( );: GOTO VTAB : HTAB PENTRU L = LA : PENTRU P = LA Z = ASC (C$(L,P)): DACĂ Z ATUNCI PRINT C$(L,P);: GOTO : REM CARACTERELE NON-LATINE SUNT IGNORATE Z = Z + INT( * RND(l)): REM OFFSET ALEATORIU APLICAT PENTRU CODIFICAREA MESAJELOR DACĂ Z > ATUNCI Z = Z - : ACȚIUNEA REM ESTE LUATĂ ÎN CAZ DE VALORI POSIBILE DE COD ÎN LIMITE ADMISIBILE PRINT CHR$ (Z); NEXT P: NEXT L sfârşit VTAB sau HTAB PENTRU L = LA : PENTRU P = LA Z = ASC (C$(L,P)): DACĂ Z ATUNCI PRINT C$(L,P);: GOTO : REM CARACTERELE NON-LATINE SUNT IGNORATE Z = Z - INT( * RND(l)): REM SET REVERSE RANDOM BIAS PENTRU DECODIFICAREA MESAJELOR DACĂ Z = ATUNCI SE TERMINĂ DACA Y ATUNCI : REM Așteptați PENTRU A ELANSA BUTONUL DE LA DISTANȚĂ A JOCULUI APĂSAT ANTERIOARUL X - : REM SETĂ COORDONATEA X "VECHIA" LA - PENTRU A FORȚĂ AFIȘAREA LINIIULUI DE ACELERĂ PRIMA PERFORMANȚĂ A OPERAȚIUNILOR PRINCIPALE BUCLEI Z = PDL ( ): CITIRE PANOUL DE CONTROL REM DACĂ ABS (Z - X) ATUNCI Z = : VALOAREA REM Z ESTE LIMITATĂ LA INTERVALUL X = Z: PANOUL DE CONTROL REM ÎNREGISTRAT DE FUNCȚIA PDL ESTE UTILIZAT CA VALOARE A VARIABILEI X HCOLOR - : HPLOT TO LX, -LY * / : REM TERSE OLD THOW LINE LX = * X/ : REM LY = SQR ( - LX * LX): CALCUL REM AL STĂRII OPPUȘE A UNUI TRIANGUL CARE DETERMINĂ unghiul liniei de aruncare HCOLOR = : HPLOT , LA LX, - LY * , / : O NOUĂ IMAGING REM LINIA RR = RR + : DACĂ RR > ATUNCI : REM VERIFICAȚI DACĂ JUCĂTORUL PRIMITOR ESTE ÎN AFĂRĂ HPLOT RR, APOI RR, : MIȘCAREA JUCĂTORULUI PRIMITOR REM HCOLOR = : HPLOT LR, TO LR, HCOLOR = : LR = LR + NY = VY - * DT: CALCULUL REM AL NOII VELOCITATE VERTICALE X = BX + VX * DT: REM CALCULATE MINGE NOUĂ X COORDONATE Aplicație Y = BY + DT * (VY + NY) / : REM CALCULATE NEW BALL Y COORDONATE VY = NY: REM ATRIBUIȚI VY O NOUA VALOARE DACĂ Y ATUNCI : REM HPLOT RR, TO RR, : MIȘCAREA RECEPTORULUI REM HCOLOR = : HPLOT LR, TO LR HCOLOR = : LR •= LR + DACĂ PURĂ (- ) ATUNCI : REM DACĂ MINGEA ESTE DEJA ÎN MIȘCARE, ORITĂ SETAREA INIȚIALĂ A MIȘCĂRII EI REM SETARE INIȚIALĂ A MIȘCĂRII MINGIEI VX = V * LX / : VY = V * LY / : REM DT = : GOTO : REM RUN PRINT G$; "RECEPTOR OFF-SIDE", "PASSARE BAS NU ESTE COMPLETĂ" GET W$: GOTO : REM CÂND ORICE TASPE ESTE APĂSATĂ, RELUARE JOC PRINT G THEN PRINT G$; "POZIȚIA MINGEI PREA ÎNALTĂ TRANSFERUL NU S-A COMPLET": GOTO DACĂ , * Y , ATUNCI : REM PENTRU A ÎNCEPTE JUCĂTORUL PRIMITOR APĂSAȚI ORICE TAStă GOTO : REM Așteaptă PORNIRE RECEPTORUL DACĂ ȘINĂ (- ) CHRS ( ) ATUNCI : REM CÂND ESTE APĂSATĂ ORICE TASPE, CU EXCEPȚIA CARE AU O SĂGEATĂ LA STÂNGA SAU LA DREAPTA, ÎNCEPE PASAREA DACĂ NX = LX - : REM DACĂ TASPA APASAȚĂ CU O săgeată spre stânga, atunci NX = LX - DACĂ NX > SAU NX , ATUNCI : VERIFICARE REM NU ESTE JUCĂTORUL PRIMITOR ÎN AFARA TERENULUI Aplicație HPLOT RR, TO RR : MIȘCAREA RECEPTORULUI REM HCOLOR = : HPLOT LR TO LR HCOLOR = : LR = LR + NY = VY - * DT: REM CALCULATE VALOARE NOUĂ PENTRU VELOCITATEA VERTICALĂ X = BX + VX * DT: REM CALCULATE MINGE NOUĂ X VALOARE COORDONATE Y - BY + DT " (VY + NY) / : REM CALCULATE NEW BALL Y COORDONATE VY = NY: REM ATRIBUIȚI VY O NOUA VALOARE DACĂ Y ATUNCI : REM HPLOT RR, TO RR, : MIȘCAREA RECEPTORULUI REM HCOLOR = : HPLOT LR TO LR HCOLOR = : LR = LR + GOTO REM SETARE INIȚIALĂ A MIȘCĂRII MINGIEI VX = V * LX / : VY = V * LY / : REM DT = , ; GOTO : LANSARE REM BALL PRINT G$; "RECEPTOR OFF-SIDE", "PASSARE BAS NU ESTE COMPLETĂ" GET W$: GOTO : REM CÂND ORICE TASPE ESTE APĂSATĂ, RELUARE JOC PRINT G$; "MINGE NU ÎNCHISĂ; TRANSFERUL NU ESTE COMPLET"} GOTO PRINT G$; "TRANSFER NU ESTE COMPLET": GOTO DACĂ NT ( , * Y) > ATUNCI TIPARĂ G$; "POZIȚIA MINGEI PREA ÎNALTĂ TRANSFERUL NU S-A COMPLET": GOTO DACĂ , • Y ATUNCI AD == -AD DACA L (I + ) = ATUNCI AD = - L(I) = L(I-I- ) + AD HPLOT I,L (I) DACĂ RND ( ) > ATUNCI BD =-BD DACĂ L ( - I) = ATUNCI BD = - L ( - I) \u d L ( - I) + BD HPLOT -I,L( -I) APOI EU REM REM STAR IMAGING REM PENTRU I = LA X = * RND ( ) Y = RND( ) * L(X) HPLOT X,Y APOI EU Y = : REM START Y COORDONATE NAVĂ X = : VALOAREA REM START A COORDONATEA X NAVĂ VY = : REM VALOAREA INIȚIALĂ A COMPONENTEI VERTICALE A VELOCITĂȚII NAVEI VX = : VALOAREA INIȚIALĂ REM A COMPONENTEI ORIZONTALE A VELOCITATEI NAVEI DT = : REM SETAREA VALORII INTERVALULUI DE TIMP (MODIFICAREA CARE POATE MODIFICA VITEZA TUTUROR ACȚIUNILOR) REM CICLU PRINCIPAL REM REM VY = VY + : CONT REM PENTRU EFECTUL GRAVĂȚII LUNII NY = Y + VY * DT:NX = X + VX * DT: REM NOI VALORI PENTRU COMPONENTELE VERTICALE SI ORIZONTALE DE VITEZA ALE NAVEI TM = TM + : REM CREȘTE BUCLA PRINCIPALA REPETARE CONTATOR REM VERIFICARE DACĂ ATERIZAREA NU S-A sfârșit în accident de navă DACA NX ATUNCI : REM DACĂ NY SAU VY > ATUNCI : VERIFICAREA STĂȚII DE NUMEROARE LA ATERIZARE REM DACĂ INT (NX) ATUNCI : REM PRINT "ATERARE EXCELENTĂ, CAPITAN " TIPARĂ "NUMĂR DE REPETĂRI ALE OPERAȚIUNILOR CYCLULUI NECESARE PENTRU FINALIZAREA ATERIZĂRII";TM;: NTAB : TIPARĂ "CONSUMUL DE COMBUSTIBIL: COMBUSTIBIL PRINT "VX: ";VX;: NTAB : PRINT "VY: ";VY CL = REEK (- ): REM HTA : PRINT "Apăsați ORICE TAStă PENTRU A RELUA JOCULUL";: GET X$: GOTO REM HCOLOR = : HPLOT X - ,Y APOI X - Y - : HPLOT X - , Y - LA X - Y - : HPLOT X,Y - LA XY - : HPLOT X + ,Y - LA X + ,Y - : HPLOT X + ,Y LA X + , Y - X=NX:Y=NY HCOLOR = : HPLOT X - ,Y LA X - ,Y - : HPLOT X - , Y - LA X - ,Y - : HPLOT X,Y - LA X,Y - : HPLOT X + ,Y - LA X - ,Y - : HPLOT X+ ,Y LA X + , Y - DACĂ PEEK (- ) • W: REM INTERVAL START VV = - * V: VITEZA INITIALA REM ESTE EGALA CU VITEZA MAXIMA MX = MX + W * VB: REM ADAUGARE LA DISTANȚA TOTALĂ DEMUTATĂ VALOAREA MAXIMĂ A CĂLĂTORIEI CARE POATE FI CĂLĂTORITA ÎN ACEST INTERVAL URMĂTORUL I PENTRU I = LA N: REM CALCULUL ÎNĂLȚIMII MAXIM POSIBILE E = I * W: REM sfârșitul intervalului VE = - fE: REM SPEED LA SFÂRȘITUL INTERVALULUI MN = MN + W * VE: REM ADAPTARE LA TRAFICUL TOTAL LA DISTANTA A VALORII MAXIMUM A CALEI CARE POATE FI PARCUTA IN ACEST INTERVAL URMĂTORUL I PRINT IMPRIMĂ "MĂRÂN DISTANȚĂ PĂTITĂ" PRINT MN;" SI NU MAI MAI ";MH;" PICIOARE" GET WS: GOTO : REM RESTART PROGRAMUL CÂND ESTE APĂSATĂ ORICE TASPE Programul Rem - /(T + ) PIECI pe secundă ON DEF FN V(T) = - / (T + ) : FUNCȚIA REM DE DETERMINAREA VALORII VITEZEI NOME : INTRODUCEȚI "INTRODUCEȚI NUMĂRUL DE INTERVALE"; N W = / N : D = PENTRU = LA N MP = (I - / ) * W D = D + FN V(MP) * W : REM URMĂTORUL I TIPRIȚI "EVALUARE CU ";N/ DREPTANGURI" PRINT "EGAL";D;" PICIOARE" GET W$: PRINT : PRINT ; IMPRIMARE ; GOTO Aplicație Programul REM * * * SIMULARE ORBITĂ LUNII (OPȚIUNEA ) % * * Software-ul REM DEF FN X (X) = + * X / E : FUNCȚIA SCARĂ REM X AXIS DEF FN Y (Y) = + "Y / E : FUNCȚIA SCALA REM Y-AXIS G = , E - : CONSTANTA GRAVITAȚIONALĂ REM CÂND UTILIZAȚĂ CA UNITĂȚI DE KILOMETRI, SECUNDE ȘI TONE METRICE DT = : REM DT = C = ORE DIM P ( , ): MEMORIE REMĂ DE REZERVĂ PENTRU STOCAREA UNUI MATRIZ DE VALORI COORDONATE X ȘI Y ALE CORPULUI I DIM V ( , ) : REZERVARE DE MEMORIE REM PENTRU STOCAREA UNUI MATRIZ DE COMPONENTE ORIZONTALE ȘI VERTICALE DE VITEZA CORPORULUI I DIM A ( , ) : REZERVAREA MEMORIEI PENTRU STOCAREA UNUI MATRIZ DE COMPONENTE ORIZONTALE ȘI VERTICALE ALE ACCELERĂRII CORPULUI I DIM M ( ) : REM M (I) - GREUTATE CORP I DIM NV ( , ) : MEMORIE DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI ALE COMPONENTELOR ORIZONTALE ȘI VERTICALE ALE NOUA VITEZĂ DE CORPS M ( ) = E : MASA LA SOL REM ÎN TONE METRICE M ( ) - E : MASA REM A LUNII ÎN TONE METRICE P( , ) - : P( , ) = : REM P( , ) = : P( , ) = : COORDONATE LUNII INIȚIALE REM V( , ) = : V( , ) = - , : VITEZA INITIALA LUNA REM (KM/S) HGR : HCOLOR = : REM MOD GRAFIC DE ÎNALTĂ REZOLUȚIE; CULOARE ALBA ROQUE - : MOD GRAFIC REM PENTRU Ecran complet PENTRU = LA : REM IMAGING FIECARE CORP HPLOT FN X (P(l,l)), FN Y (P( ,I)) URMĂTORUL I GOSUB : CALCULUL REM AL ACCELERĂRII LA ÎNCEPUTUL TIMPULUI NV ( , ) = V ( , ) + DI * A ( , ) : REM CALCULATE NOU VITEZA NV ( , ) \u d V ( , ) F DT * A ( , ) P( , ) = P( , ) + DT * (V( , ) + NVU )) / : REM CALCULATE NOI COORDONATE DE POZIȚIE P ( ) \u d P ( ) -I- DT * (V ( ) + NV ( )) / V ( , ) = NV ( , ) V ( , ) = NV ( , ) GOTO SUBPROGRAMUL REM PENTRU CALCULUL ACCELERĂRII CORPORULUI Aplicație REM S - (P ( ) - P ( )) * (P ( ) - P ( )) + (P ( ) - P( , )) * (P( , ) - P( , )) : REM S - PĂTRATUL DISTANȚĂ ÎNTRE CORPURILE ȘI DS = S SQR (S) : REM DS - CUBUL DISTANȚEI ÎNTRE CORPURILE ȘI A ( , ) = G * M ( ) * (P ( , ) - P ( , )) / DS : CALCUL REM COMPONENTA ORIZONTALĂ A ACCELERĂRII A ( ) = G * M ( ) * (P ( ) - P ( )) / DS : CALCUL REM COMPONENTA VERTICALA A ACCELERATIEI RETURNARE Programul REM * * * MODELAREA ORBITĂ LUNII (OPȚIUNEA ) ::: * * Software-ul REM DEF FN X (X) = + * X / E : FUNCȚIA SCARĂ REM X AXIS DEF FN Y (Y) = - * X / E : FUNCȚIA SCARĂ REM Y-AXIS G = , E- : CONSTANTA GRAVITAȚIONALĂ REM CÂND UTILIZAȚĂ CA UNITĂȚI DE MĂSURĂ ÎN KILOMETRI, SECUNDE ȘI TONE METRICE DT = : REM DT = C = ORE DIM P( , ) : MEMORIA DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI COORDONATE X ȘI Y ALE CORPULUI I DIM V ( , ) : REZERVARE DE MEMORIE REM PENTRU STOCAREA UNUI MATRIZ DE COMPONENTE ORIZONTALE ȘI VERTICALE DE VITEZA CORPORULUI I DIM A ( , ) : REZERVAREA MEMORIEI PENTRU STOCAREA UNUI MATRIZ DE COMPONENTE ORIZONTALE ȘI VERTICALE ALE ACCELERĂRII CORPULUI I DIM M ( ) : REM M (I) - GREUTATE CORP I DIM SP( , ) : MEMORIE DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI COORDONATE X ŞI Y ALE POZIŢIEI VECHII A CORPULUI I DIM А ( , ) : REZERVARE DE MEMORIE REM PENTRU STOCAREA UNUI MATRIZ DE VALORI ALE COMPONENTELOR ORIZONTALE ȘI VERTICALE ALE ACCELERĂRII CORPULUI I LA ÎNCEPUTUL INTERVALULUI DE TIMP DIM NV ( , ) : MEMORIE DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI ALE COMPONENTELOR ORIZONTALE ȘI VERTICALE ALE NOULUI VELOCITATE A CORPULUI I M ( ) = E : MASA LA SOL REM ÎN TONE METRICE M ( ) = E : MASA REM A LUNII ÎN TONE METRICE P( , ) = :P( , ) = : REM COORDONATE PĂMÂNTULUI REAL P( ) = :P( ) = : COORDONATELE LUNII INIȚIALE REM V( , ) = : V( , ) = - , : VITEZA INITIALA REM LUNA (KM/S) HGR : HCOLOR = : REM MOD GRAFIC DE ÎNALTĂ REZOLUȚIE; CULOARE ALBA Aplicație ROQUE - : MOD GRAFIC REM PENTRU Ecran complet PENTRU = LA : REM IMAGING FIECARE CORP HPLOT FN X (P( , )), FN Y (P( ,I)) URMĂTORUL I GOSUB : CALCUL REM AL ACCELERĂRII LA ÎNCEPEREA INTERVALULUI DE TIMP A ( ) = A ( ) : A ( ) = A ( ) : REM SP( , ) = P( , ) : SP( , ) = P( , ) : REM NV( ) = V( ) + DT * A( ) : REM PRIMA EVALUARE NOI VALORI DE VITEZĂ NV ( , ) \u d V ( , ) + DT * A ( , ) P( , ) = P( , ) + DT * (V( , ) + NV( , )) / : REM PRIMA EVALUARE A NOILOR VALORI COORDONATE A POZIȚIEI P ( , ) \u d P ( , ) + DT * (V ( , ) -C NV ( , )) / GOSUB : REM GO TO ACCELERATION LA sfârșitul intervalului de timp NV ( ) = V ( ) + DT * (A ( ) + A ( )) / : REM A DOUA EVALUARE A NOII VALORI DE VITEZĂ NV ( ) \u d V ( ) + DT * (A ( ) + A ( )) / R ( , ) = SP ( , ) + DT * (V ( , ) + NV ( , )) / : REM A DOUA EVALUARE A NOILOR VALORI COORDONATE A POZIȚIEI R ( ) = SP ( ) + DT * (V ( ) + NV (( )) / V ( , ) = NV ( , ) : V ( , ) = NV ( , ) : VITEZA REM PENTRU URMĂTORUL INTERVAL DE TIMP ESTE NOUA VITEZĂ GOTO SUBPROGRAM REM PENTRU CALCULUL ACCELERĂRII CORPORULUI REM S == (P( ) - P( )) * (P( ) - P( )) + (P( ) - -P( )) * (P ( , ) ~ P ( , )) : REM S - DISTANTA PATRAT INTRE CORPURILE SI DS = S * SQR (S) : REM DS - CUBUL DISTANȚEI ÎNTRE CORPURILE ȘI A( ) = G * M( ) * (P( ) - P( )) / DS: CALCULUL REM AL COMPONENTEI DE ACCELERARE ORIZONTALA A ( ) = G * M ( ) * (P ( ) - P ( )) / DS: CALCUL REM AL COMPONENTEI VERTICALE DE ACCELERARE RETURNARE Programul REM SIMULARE A ORBITEI A PATRU PLANETE DAR SISTEMUL SOLAR REM DEF FN X (X) = + * X / E : FUNCȚIA SCARĂ REM X AXIS DEF FN Y (Y) = + * Y / E s REM FUNCȚIA SCARĂ AXE Y G = , E*- : CONSTANTA GRAVITAȚIONALĂ REM CÂND UTILIZAȚĂ CA UNITĂȚI DE MĂSURĂ ÎN KILOMETRI, SECUNDE ȘI TONE METRICE Aplicație DT = : REM DT = C = DOUA ZILE N = : NUMĂRUL REM DE CORPURI CERESTRE ESTE DE CINCI DIM P( , ) : MEMORIE DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI COORDONATE X ȘI Y ALE CORPULUI I DIM V ( , ): REM DIM A ( , ) : REZERVAREA MEMORIEI PENTRU STOCAREA MATRICULUI COMPONENTELOR ORIZONTALE ŞI VERTICALE ALE ACCELERĂRII CORPULUI I DIM M ( ) : REM M (I) - GREUTATE CORP I DIM SP ( , ) : MEMORIE DE REZERVĂ REM PENTRU STOCAREA UNUI MATRIZ DE VALORI COORDONATE X ȘI Y ALE POZIȚIEI VECHII A CORPULUI I DIM A! REM DIM NV( , ): REM M( ) = , E : MESA REM SUN ÎN TONE METRICE M ( ) = , E : P ( , ) = , E : V ( , ) = - , REM PARAMETRII MERCURULUI M ( ) = , E : P ( , ) = , E : V ( , ) = - , : PARAMETRII REM AI VENUS M( ) = , E : P( , ) = , E : V( , ) = - , : PARAMETRI DE PĂMÂNT REM M( ) = , E : P( , ) = , E : V( , ) = - , : REM HGR : HCOLOR = : REM MOD GRAFIC DE ÎNALTĂ REZOLUȚIE; CULOARE ALBA ROQUE - : MOD GRAFIC REM PENTRU CÂMP ECRAN COMPLET PENTRU = ATUNCI N: REM IMAGING FIECARE CORP HPLOT FN X(P( )), FN Y(P( )) APOI EU PENTRU = ATUNCI N GOSUB : REM GO LA CALCULUL ACELERĂRII FIECĂRUI CORP LA ÎNCEPUTUL INTERVALULUI DE TIMP A ( , ) = A( , ) : A ( , ) = A( , ) : REM ȘI DEPOZITARE NV( ,I) = V( , ) + DT * A( , ) : REM PRIMA EVALUARE A NOII VALORI DE VITEZĂ NV ( , ) = V ( , ) + DT * A ( , ) SP( ,I) = P( , ) + DT * (NV( , ) + V( , )) / : REM FIRST EVALUAREA VALORILOR COORDONATE ALE UNEI NOI POZIȚII SP ( ) = P ( ) + DT * (NV ( ) + V ( )) / APOI EU PENTRU = ATUNCI N W = P( , ) : P( , ) = SP( , ) : SP( , ) = W: REM RECORD SP(lI) VALOARE ÎN P( , ) PENTRU NOUA EVALUARE A ACCELERĂRII Aplicație W \u d P ( ) : P ( ) \u d SP ( ) : SP ( ) \u d W URMĂTORUL I PENTRU = LA N GOSUB : REM GO TO CALCULUL ACELERĂRII FIECĂRUI CORP LA SFÂRȘITUL INTERVALULUI DE TIMP NV(lI) = V(I,I) + DT * (Al( , ) + A( , )) / : REM A DOUA ESTIMARE A NOII VITEZE NV ( ) \u d V ( ) + DT * (A ( ) + A ( )) / URMĂTORUL I PENTRU I = LA N P( ,I) = SP( ,I) + DT * (V( ,I) + NV( ,I) )/ : REM A DOUA EVALUARE A NOILOR VALORI COORDONATE A POZIȚIEI Р( ,І) = SP( ,I) + DT " (V( I) + NV( ,I) ) / V( ,I) = NV( ,I):V( ,I) = NV( ,I): VITEZA REM PENTRU INTERVALUL URMĂTORULUI URMĂTORUL I GOTO SUBPROGRAMUL REM PENTRU CALCULUL ACCELERĂRII CORPORULUI I REM S = (P( ,I) - P( , )) * (P( ,I) - P( ,I)) - (P( , ) - - P( , )) * (P( ,I) - P( , )) DS=S*SQR(S):REM DS=L*L*L A( ,I) = G * M(l) * (P(l,l) - P( ,I)) / DS: CALCUL REM AL COMPONENTEI DE ACCELERARE ORIZONTALA A( ,I) = G * M( ) * (P( , ) - P( ,I)) / DS: CALCUL REM AL COMPONENTEI VERTICALE DE ACCELERARE RETURNARE Programul REM MODEL ECOLOGIC AL POPULAȚIEI DE Sfeclă Software-ul REM DIM Р( ): REM Р(І) - NUMĂR DE GANDAC ÎN ANUL І-M NOME INTRARE "SETARE POPULAȚIA INIȚIALĂ:"; P( ) YR = PRINT : REM SKIP LINE TIPARAȚI "ANUL POPULAȚIEI": REM OUTPUT HEADER PRINT : REM SKIP LINE PRINT " YR;: HTAB : PRINT P(YR) DACĂ YR = * INT (YR / ) THEN PRINT: GET X§: REM SKIP O LINE ȘI AȘTEPTĂ INTRAREA DE LA TASTATURA DUPĂ IEȘIREA URMĂTORII ZECE ANI D = , - P(YR) : DACĂ P(YR)> ATUNCI D = : CALCUL REM RATE DE DECES (VALOARE MAXIMĂ ) V = , - * P(YR): DACĂ P(YR) > ATUNCI V = : REM CALCULUL RATEEI DE FERTILITATE (VALOARE MINIMĂ ) P(YR - ) = P(YR) -B " P(YR) - D * P(YR): CALCUL REM AL POPULAȚIEI DE ANUL URMĂTOR YR = YR - : GOTO Aplicație Programul REM MODEL LOGISTIC AL SISTEMULUI ECOLOGIC Software-ul REM HOME: REM CLEAR ECRAN ŞI INSTRUCŢIUNI DE IEŞIRE PRINT "MODEL LOGISTIC AL SISTEMULUI ECOLOGIC" PRINT: PRINT "POPOLAȚIA SE SCHIMBA" PRINT : PRINT "DUPĂ ECUATIE:" PRINT : REM SKIP LINE PRINT "P(I + ) = A" ( - B * P(I)) * P(I) " PRINT : REM SKIP LINE INTRARE "SETARE VALOARE A: ";A INTRARE "SETARE VALOARE ÎN: ";IN DIM Р( ): REM Р(І) - POPULAȚIA ÎN ANUL I INTRARE "SETARE POPULAȚIA INIȚIALĂ:"; NOME TIPARĂ "NUMĂRUL TOD": IEȘIRE ANTET REM PRINT: REM SKIP LINE PRINT " ";І;: NTAB : PRINT P(I): REM DISPLAY AN ȘI POPULAȚIE DACĂ I = * INT (I / ) ATUNCI PRIMĂ: GET X$: REM AȘTEPTĂ INTRODUCEREA TASTATĂRII DUPĂ IEȘIREA DATELOR PENTRU URMĂTORII ZECE ANI P(I + ) = A * (I - B * P(I)) * P(I): REM CALCULUL POPULAȚIEI ANUL URMĂTOR = + GOTO Programul REM JOC ECOLOGIC "FERMIER DE CACTUS" Software-ul REM HOME : GR : REM ȘTERGE ECRANUL ȘI SETĂ MODUL GRAFIC LA RESOLUȚIE MICĂ G$ = CHR$( ): REM CHAR !CTRL-G! SERVEȘTE PENTRU DEPUNEREA UNUI SEMNAL SONOR SX = :SY = : REM SX ȘI SY VALORI COORDONATE POZIȚIA CURTĂ ECRANULUI R = : POPULAȚIA DE CACTUS REM ESTE ORIGINAL NS = : REM NS - NUMĂR DE CACTUS COLECTATE PENTRU NG = LA : CICLU DE RECOLTA REM GENERAȚII DE CACTUS VTAB : NTAB : PRINT LEFT$("GGGGGGGG", -NG); LEFT$ (" ",NG) ;: REM JOCUL RĂMÂNS REM REM NOUA GENERATIE REM GR : CULOARE = : CULOARE CURATARE ECRAN REM - ALB REM IMAGING O NOUA GENERAȚIE DE CACTUS Aplicație PENTRU ST = LA R: REM PICTURE P CACTI PE ECRAN X = * IMC ( * RND(l)): SELECTAREA REM A COORDONATEI X A ZONEI ALEATORII ECHIPROBABILE PENTRU IMAGINEA CACTUS Y = * INT ( * RND ( )): REM ȘI COORDONATELE SALE Y DACĂ SCRN(X,Y) > ATUNCI : REM CHECK ESTE ZONA SELECTATĂ ESTE OCUPĂ SAU LIBERĂ GOSUB : NEXT ST: REM DACĂ ZONA SELECTATĂ ESTE LIBERA, CACTUS ESTE IMAGINAT ÎN EA CY = : REM CY - NUMĂR DE CACTI DIN SACUL UNUI FERMIER FX = :NX = :FY = :NY = : PLOT FX FY: REM Mișcarea marcatorului de locație a fermierului începe din colțul inferior inferior al ecranului pentru fs = apoi : Rem fermierul face de pași din rafturile IF (- )> stânca - : GOTO : REM când apăsați orice tastatură, trecerea la următoarea are loc la următoarea GENERATION IF RAIL (- ) > APOI : REM SELECTAREA Drumului FERMIERULUI PENTRU CASĂ DACĂ PEEK (- ) > ATUNCI : REM ÎN funcție DIN STAREA BUTONURILOR DE CONTROL JOC NY = FY + : DACA NY = ATUNCI NY = : REM DOWN GOTO NX = FX + : DACA NX = ATUNCI NX = : REM MOVE DREAPTA GOTO DACĂ PEEK (- ) > ATUNCI NX = FX - : DACĂ NX = - ATUNCI NX = : REM LEFT GOTO NY = FY - : DACA NY = - ATUNCI NY = : REM UP CULOARE = : PLOT FX,FY: REM ȘTERGERE OLD FARMER LOCAȚIE MARKER DACĂ SCRN(NX NY) > ATUNCI : REM VERIFICA DACA FERMIERUL A AJUNS LA CACTUS CULOARE = : PLOT NX NY: REM PLOT NEW FARMER MARKER LOCALIZARE FX = NX:FY = NY: REM SCHIMBAREA POZIȚIA MARKERULUI PE ECRAN DACĂ FX = ȘI FY = ȘI CY > ATUNCI : FERMIERUL REM VA ACASĂ NEXTFS P = * ( - *P) * P: DACA P YU ATUNCI YU = Y(I) DACA Y(l) , MARC Y-AXIS MY = FN X( ) - : DACĂ MY =C ATUNCI DACĂ TX = , atunci REM DACA TX ATUNCI MARCAREA AXEI X MY = FN Y( )+ : DACĂ MY > ALOR MY = X=INT(B/TX)*TX HPLOT FN X(X), FN Y( )- LA FN X(X), MY X = X-TX DACĂ A D ATUNCI SW = : GOTO : REM DACA PRIMA VALOARE ESTE PREA MARE, SETATI SW=+ SI ACEST PUNCT NU ESTE ARATAT PE GRAF DACĂ Y( ) =C ȘI Y(I) =C AND Y(I) =C ȘI Y(I) DTHENSW= + : HPPLOT LA FN X(X)- , : TRECEȚI LA : REM ANTERIOR PUNCT LA BORDA SUPERIOARĂ CÂMPULUI DACA Y(I) D ATUNCI SW = URMĂTORUL I GET WS: REM STOP AT FUNCTION GRAPHING COMPLETE DACĂ WȘ = "G" ATUNCI TRECE LA DACĂ W$ = "Q" ATUNCI TEXT: END DACĂ WS = "R" ATUNCI TEXT: GO THEN : REM Plot GRAF NOU DACĂ TASPA "R" ESTE APĂSATĂ DACA FF = ATUNCI PRINȚĂ "INTRODUCEȚI "G" PENTRU O COPIE "HARD" (GRAFUL FUNCȚIILOR PE HÂRTIE)": PRINT "INTRODUCEȚI "Q" PENTRU A FINALIZĂ": FF = TEXT: REM DISPLAY INTREAZĂ MODUL TEXT CÂND ESTE APĂSATĂ ORICE TAStă GET WS: REM STOP DACĂ W$ = "G", atunci mergeți la DACĂ WS = "Q" ATUNCI TEXT: END DACA WS = "R" ATUNCI GOTO : REM ROQUE - : GOTO : GRAFUL FUNCȚIEI REM ESTE REDAT PE ECRANUL DE DISPLAY CÂND ESTE APĂSAȚĂ ORICE TASPE REM REM * * * SUBPROGRAM PLASAT AICI * * * REM * * * COPIE HARD * * * # Aplicație REM * * * GRAFICA PE DISPOZITIVUL DE IMPRIMARE * * * sfârşit Programul REM SURFACE CONSTRUCTION IN D SPAȚIU REM LOMEM: : ALOCARE REM PENTRU VARIABILELE DE PROGRAM ALE ZONEI DE MEMORIE CU CEA MAI MICĂ ADRESĂ DISPONIBILĂ" ACASĂ : CURĂȚARE REM ECRAN G$= CHRS ( ): REM BEEP SET PRINȚ GS;: FLASH : PRINT "SPECIFICAȚI FUNCȚIA CA OPERATOR": NORMAL : PRINT : PRINT " DEF FNF(Y) = F(X, Y)" : END PRINT "FUNCȚIE" : PRINT : LISTA INTRARE "SETARE INTERVAL DE RELUARE X (LIMITĂ JOSĂ, LIMITĂ ÎNALTĂ):"; XL, XH INTRARE "SETARE INTERVAL Y REPRODUCABIL (LIMITĂ JOSĂ, LIMITĂ ÎNALTĂ):"; YL, YH INTRARE "SETARE INTERVAL DE REPRODUCERE Z (LIMITĂ JOSĂ, LIMITĂ ÎNALTĂ):"; ZL, ZH INTRARE "SETARE NUMĂRUL DE PUNCTE PE AXA X:"; N DY = (YH - YL) / : REM PAS DE CALCUL AXE Y DX = (XH - XL)/N: CALCUL REM PITCH X SZ = / (ZH - ZL): REM SZ -ZOOM ZOOM DEF FN Z(Z) = - SZ * (Z - ZL): FUNCȚIA SCARĂ REM Z-AXIS ZT = : YT = : REM ATRIBUIREA COEFICIENȚILOR DE OFFSET DE SECȚIUNE LA VALORI "STANDARD" PRINT: PRINT "VALORI STANDARD OFFSET: ZT= , YT= " INTRODUCERE "SPECIFICAȚI Y (DA) DACĂ DORIȚI SĂ SCHIMBAȚI; SPECIFICAȚI N (NU) DACĂ NU ESTE NECESARĂ SCHIMBARE"; X$ DACĂ X$ = "Y" ATUNCI INTRODUCEREA "ZT ="; ZT: INTRARE VALOARE REM ZT DACĂ X$ = "Y" ATUNCI INTRODUCERE "YT YT: REM REM GRAFICĂ O FUNCȚIE ÎN SPAȚIU D HGR : POQUE - : REM FULL FORMAT MOD GRAFICE DE ÎNALTA REZOLUȚIE X=XL " Această utilizare a instrucțiunii LOMEM ajută la protejarea zonelor de date ale programului de posibile "interferențe" cauzate de funcționarea software-ului de sistem atunci când se utilizează modul grafic de înaltă rezoluție - Aprox Aplicație PENTRU = ATUNCI N: CICLU REM PE X Y==YL PENTRU J = LA : REM LOOP Y Z = FN F(Y+YT X): CALCUL REM LUI Z INCLUSIV SHIFT Y Z = Z -ZT * X: REM SHIFT JOS CU ZT GOSUB : REM Trasează punctul curent Y = Y-{-DY: REM INCREMENTARE VALOAREA Y URMĂTORUL J X = X + DX: URMĂTORUL I: REM INCREMENT X VALOARE PRINT G$ OBȚINEȚI X$: DACĂ X$ = "G" APOI MAI LA TEXT OBȚINEȚI X$: DACĂ X$ = "G" APOI MERGI ROQUE- GOTO : REM THIS LOOP COMMUTĂ AFIȘAREA DE LA MODUL GRAFIC LA MODUL TEXT ȘI VICE VERSE REM PLASAȚI AICI PROGRAMUL DE RETRAGERE IMAGINI REM PENTRU DISPOZITIVUL DE IMPRIMARE SUBPROGRAM DE CONSTRUCȚIE REM IMAGE POINT ȘI ELIMINAȚI PUNCTE ASCUNS TZ = FN Z(Z): SCALA REM Z-AXIS IF TZ > THEN RETURN: REM POINT EXTERIOR GRAFICUL PREZENT CÂMPUL DJ=J+J DACĂ TZ Q, atunci această funcție alege de fiecare dată un nou număr aleator din cel dat Plus gama de picioare; dacă ab =" (mai mare sau egal cu), (mai mic decât), (mai mic sau egal cu), "O" sau "X" (nu este egal); dacă operanzii sunt simbolici (șiruri de simboluri, variabile simbolice sau expresii), atunci "=" (potrivire) este folosit ca semn al operației de relație; "op" este un operator de transfer de control necondiționat (GOTO /r), sau abrevierea acestuia sub forma unui număr (/r) al operatorului căruia i se transferă controlul sau al unui alt operator de limbă BASIC (atribuire, ieșire etc ), excluzând instrucțiunile de transfer condiționat sau buclă Dacă relația specificată după cuvântul de serviciu IF este adevărată, atunci instrucțiunea situată după cuvântul de serviciu THEN este executată în continuare; în caz contrar (relația este falsă), computerul trece imediat la execuția instrucțiunii care este plasată în textul programului imediat după instrucțiunea IF dată Exemple: DACĂ A > B, TRECEȚI LA DACĂ A > B ATUNCI DACA A > B GOTO Acești trei operatori efectuează aceleași acțiuni: dacă A>B, atunci controlul este transferat operatorului numărul , în caz contrar computerul trece la execuția operatorului următor în ordine A treia declarație ilustrează singura posibilitate de a nu folosi cuvântul cheie THEN, și anume în cazurile în care este urmată de o instrucțiune GOTO DACĂ D$ = "MIN" atunci J = Conform acestei afirmații, valoarea este atribuită variabilei J numai dacă valoarea variabilei caracter D$ este șirul de caractere "MIN" K = : SUMA = K = K+ SUM = SUM + KA DACA K ab ; ab N ATUNCI GOTO TIPARĂ "Corect! NUMĂR DE ÎNCERCĂRI EGAL", ST FINAL Plus PRINȚ "INCORT, ÎNCERCAȚI DIN NOU" RESTAURARE ST = ST + GOTO DATE , , , - , , - , , , DATE , , - , , Când programul este executat pentru prima dată, instrucțiunea READ atribuie variabilei DN valoarea , când această instrucțiune este executată din nou, valoarea etc După ce instrucțiunea READ a "citit" toate datele din lista de prima instrucțiune DATA, începe "citirea" listei celei de-a doua instrucțiuni DATA Dacă și această listă este epuizată, iar numărul introdus nu se potrivește cu niciunul dintre numerele din liste, ultima valoare a variabilei DN va fi numărul Este folosit pentru a afișa un mesaj că jucătorul a eșuat Pentru a reda o sesiune de joc, trebuie să începeți să citiți datele cu o instrucțiune READ din primul număr din lista de date a primei instrucțiuni DATA Instrucțiunea RESTORE vă permite să "setați" instrucțiunea READ la începutul listei complete de date reprezentate în acest program de două instrucțiuni DATA În general, instrucțiunea READ poate fi folosită pentru a "citi" mai multe date consecutive din lista instrucțiunii DATA în același timp Pentru a face acest lucru, după cuvântul READ, numele variabilelor cărora trebuie să li se atribuie valorile ​dintre aceste date sunt enumerate, separate prin virgule Instrucțiunile DATA pot fi plasate oriunde în program deoarece servesc ca surse de date pentru instrucțiunea READ și nu se execută pe cont propriu Operatori pentru setarea modului de afișare Pentru un programator, principala sursă de informații curente despre funcționarea unui computer personal este afișajul Acesta din urmă poate funcționa în așa-numitul mod text, setat de operatorul TEXT, sau într-unul dintre modurile grafice de funcționare, setat de operatorii GR, HGR sau HGR Modul text implicit al afișajului, setat de computer, permite plasarea a de linii a câte de caractere în fiecare pe ecranul său în același timp Folosind operatorul TEXT, puteți anula modul grafic de operare și puteți seta modul text Se face o distincție între ecranul de afișare cu rezoluție joasă (GR) și grafica de înaltă rezoluție (HGR și HGR ) În modul de rezoluție scăzută, câmpul ecranului este "descris" de elemente de descompunere care formează o matrice de x În partea de jos a ecranului pentru a afișa informații text Plus de formațiuni sunt linii ("text box") După executarea instrucțiunii GR, culoarea câmpului ecranului este setată la negru, iar cursorul (indicatorul către poziția curentă a ecranului) este mutat în colțul din stânga sus al casetei de text Înainte de a forma pe ecran (folosind operatorii PLOT, HLIN, VLIN) imaginea grafică necesară, este necesar să setați culoarea acesteia din urmă folosind operatorul COLOR n, unde n este un număr întreg de la la care determină alegerea culoare (vezi capitolul , sarcina ) Modul grafic al afișajului de înaltă rezoluție are două variante: folosind o fereastră de text (HGR) și fără ea (HGR ) După executarea instrucțiunii HGR, câmpul ecranului de afișare este reprezentat ca o matrice de elemente de descompunere X ; în partea de jos a ecranului există o casetă de text cu linii Dacă se folosește operatorul HGR , atunci nu există nicio casetă de text și întreg câmpul ecranului este o matrice de elemente de descompunere cu o dimensiune de x În ambele cazuri, de elemente sunt plasate orizontal pe câmpul ecranului Înainte de a forma pe ecranul de afișare (cu ajutorul operatorului HPLOT) imaginea grafică necesară, este necesar să setați culoarea acesteia din urmă cu ajutorul operatorului HCOLOR /r, unde n este un număr întreg de la la care determină alegerea culorii ( Capitolul , sarcina ) Notă Pe lângă programele de service, memoria computerului stochează și programul utilizatorului, urmat imediat (în ordinea crescătoare a valorilor adreselor de memorie) de zona de alocare a variabilelor programului O parte din memoria pusă la dispoziția programatorului (pentru programul BASIC și datele reprezentate de variabilele programului) este folosită și de utilitarele care asigură afișarea în modul grafic de înaltă rezoluție În unele cazuri, aceasta duce la o situație conflictuală: setarea unui mod grafic cu o rezoluție mare în timpul execuției unui program BASIC poate provoca distrugerea datelor programului (bufferele programului utilitar care implementează modul grafic specificat sunt plasate la locul unde sunt stocate variabilele) Pentru a evita o astfel de situație, adică pentru a proteja variabilele programului, limbajul BASIC oferă un operator LOMEM special, care permite programatorului să specifice adresa inițială (valoare minimă) a zonei de memorie pentru plasarea variabilelor programului (Alegerea corectă a valorii acestei adrese oferă o protecție fiabilă a variabilelor programului BASIC ) Forma generalizată a operatorului: LOMEM : adresa unde "adresa" este valoarea absoluta a adresei spatiului de memorie disponibil programului utilizator pentru adresare Plus Operatori de adresare directă în memorie Memoria principală a unui computer stochează informații (comenzi, date) în formă binară, adică sub formă de combinații de zerouri și unu (cifre binare numite biți) Opt biți alăturați formează ceea ce se numește octet Limbajul de programare BASIC oferă utilizatorului mijloacele de a adresa unul sau altul octet de memorie pentru a scrie informații în acesta sau a le prelua de acolo Memoria este "împărțită" în octeți; fiecare octet este adresabil, adică are propria sa adresă Operatorul pentru scrierea unui octet de informație în memorie are următoarea formă generalizată: ROKE la naiba, ba unde "bi" este un număr întreg zecimal aparținând intervalului de valori de la la , al cărui echivalent binar (octet) urmează să fie scris în memorie la adresa iad; "Iad" - adresă RAM, a cărei valoare aparține intervalului de valori de la - la + De exemplu, operatorul POKE - scrie numărul în zona RAM cu o adresă relativă de - Pentru a prelua o copie a conținutului unui octet de memorie, utilizați funcția PEEK, numită uneori comandă Are următoarea formă generalizată: REEK (dracu) unde "iad" este un număr întreg zecimal care specifică adresa octetului de memorie a cărui copie a conținutului urmează să fie preluată De exemplu, ca urmare a executării operatorului de atribuire X = PEEK (- ) variabila X este setată la o valoare care indică starea butonului (zero) de pe controlerul jocului (Dacă X> , atunci aceasta înseamnă că butonul este apăsat ) Memoria computerului conține nu numai programul utilizatorului, ci și o serie de proceduri de limbaj mașină (inclusiv cele create de utilizatori), a căror execuție poate fi inițiată de un operator de apel având următoarea formă generalizată: chema iadul unde "infern" este adresa (zecimală întreagă) a zonei de memorie în care se află procedura limbajului mașinii care urmează să fie apelată De exemplu, utilizarea instrucțiunii CALL șterge ecranul de afișare în modul grafic de înaltă rezoluție Plus Structura programului Un program este o secvență de operatori care descriu un algoritm pentru o problemă de rezolvat pe un computer Textul programului este format din linii numerotate cu numere întregi în ordinea crescătoare a valorilor acestora O linie poate conține un operator sau mai mulți, separați unul de celălalt prin două puncte De obicei, programul începe cu operatori de definire a funcțiilor (DEF FN) și descrieri de matrice (DIM), dacă sunt utilizați, precum și operatori pentru setarea modului de funcționare a dispozitivelor computerizate externe (GR, HGR etc ), dacă este necesar modul diferă de cel setat de sistemul informatic conform implicit Corpul programului este format din instrucțiuni de intrare (INPUT, GET), atribuire, transfer de control (GOTO, IF, GOSUB), buclă (FOR, NEXT) și ieșire (PRINT) Textul programului se termină cu instrucțiunile STOP sau END Instrucțiunea STOP determină computerul să oprească executarea programului, să afișeze un mesaj despre numărul de linie care conține această instrucțiune și să transfere controlul mașinii către utilizator Instrucțiunea END invocă aceleași acțiuni fără a afișa niciun mesaj Textul unui program bine documentat ar trebui să fie prevăzut cu un număr suficient de comentarii; un semn al începutului unui comentariu este cuvântul auxiliar REM Un comentariu fie ocupă întreaga linie, fie termină o linie deja luată de instrucțiuni și este separat de ultima instrucțiune prin două puncte V K Pototsky index al subiectelor Valoarea argumentului "start" - Bioritmuri , , Mișcarea blocului Plimbări aleatorii bidimensionale , , , - - - unidimensional - , , , Tragerea monedelor , , , , , , , Probabilitate - teoria , Specii de indivizi în război - - singur - - concurând Întoarcere la transport Supraviețuire Calcule Anul bisect , Mișcarea browniană - corpuri cerești Zilele săptămânii , , Documentația programului Legea gravitației , , - Kepler al treilea - - conservarea momentului mărimii mișcarea Înlocuirea literei Gândacul de Aur Imaginile în mișcare , Inițializarea , , Calendarul , , , - Gregorian - universal - Iulian , Tastatura computerului , , , Cod indescifrabil - ASCII Codificare de substituție , , - practic indestructibil decodificare - offset - cu offset , Codurile Echipa CULOARE , - GR - HCOLOR , , - HGR , , - HLIN , - HPLOT , - PARCELA X, Y - ROKE - SCRN - TEXTUL - VLIN , Coordonata - x , , , , , , , - la , , , , Coordonatele mașinii , Labirintul , , , , , Liniile ascunse Index de subiect Luna , , , - - orbita - mișcarea orbitală , Scara Zoom , - functii Eticheta - scara - cererea Metoda de modelare statistică Mini Editor Modele logistice - exponențial Zona luată în considerare , , , , Rotunjirea , , - erori , Apelați operatorul , - OBȚINE , , - DEF - FN , - INTRAREA - LISTA - PEEK - ROKE - , , - RND Axele de coordonate Persoane fizice numărul , Axa x , , , , , , , - la , , , , , , , - - zoom Restul , Programele de depanare , , , Decuparea unei părți a unui grafic Curățarea ecranului memorie RAM Planetele , , - mișcarea orbitală - parametrii de mișcare Zona zona Rata natalității - , , - - generalizat , - mortalitate , , , - - generalizat , Navele spațiale care aterizează pe suprafața Lunii Mesaj (mesaj) codificat , De Edgar Allan Programul de simulare - prelucrarea informațiilor text Tracțiunea Programare interactivă Dreptunghi "medie" înălțime Controler de joc , , Pornire la cald , - "rece" , Transcrierea textului Editor de text Modul redare text - grafic pe toată lungimea , - - cu rezoluție mare , , , , - - - - - scăzut - "rula" , , Ruleta Mijlocul benzii , Forța Caracter folosit pentru înlocuire Sistemul de coordonate carteziene , - metric - ecologic , , , - - modelare , Viteza , , , , , , , , , - apelare rapidă indicator de subiect Metoda de testare a ipotezei statice Grafică de înaltă rezoluție Tabelul triunghiular al lui Pascal , , , - conversii , , - frecvente , - Tehnica (metoda) de vizualizare a tabelelor Metoda trapezului Echivalent trapez - - zona Triunghiul lui Pascal , Accelerație , , , - Lunii , Factorial , , Funcție încorporată (RND) - programul - - variabile a două - - - unul - - clădirea - scalare -ASC -CHR , - INT , - PDL ( ) - REEK , , , - RND - SCRN Fotbal american Cicluri de întârziere C Ciclul inteligent , , , , - așteptări , - principal - fizic , , , , - emoțional , , , , Cicluri de întârziere , Numere reale aleatoare Dimensiunea populației , , , , - - fluctuații Număr aleatoriu R , - - întreg aleator Limbajul mașinii , CONŢINUT Prefața editorului de traduceri Prefață Jocuri și programare interactivă Sarcina "Mai repede, Max!" Sarcina : Utilizarea modului grafic de rezoluție joasă Sarcina "Cursa prin labirint" Sarcina Generatorul de labirint Sarcina Curse de câini Sarcina Pilotarea unei aeronave sub focul artileriei antiaeriene Sarcina Formarea imaginilor pe ecranul computerului folosind modul grafic de înaltă rezoluție Câteva sfaturi pentru scrierea și depanarea programelor Legile evenimentelor aleatorii Problema Aruncarea unei monede Problema Calcularea factorilor Problema Plimbări aleatorii unidimensionale Problema Plimbări aleatorii bidimensionale Problema Testarea ipotezelor statistice Măsurarea timpului Problema : Determinarea numărului de zile dintre două date calendaristice Problema Calendarul universal Sarcina Determinarea bioritmurilor Codurile Problema Cea mai simplă mașină de criptare Problema Mini editor de text Problema Decodificarea mesajelor criptate Problema Codificarea și decodarea mesajelor care exclud decriptarea neautorizată Conţinut Forțele gravitației și spațiul cosmic Problema Mișcarea de-a lungul unei curbe balistice Sarcina Un imitator al elementelor jocului de fotbal american (jucătorul imită acțiunile unui apărător care încearcă să transmită mingea partenerului care îl primește) Problema Simulator pentru aterizarea unei nave spațiale pe suprafața Lunii Problema Determinarea ariei unei zone date pe un plan folosind metode numerice Problema Modelarea mișcării orbitale a Lupei și a planetelor Rata natalității și mortalității Problema Modelarea sistemelor ecologice Sarcina Crearea unui joc ecologic "Cactus Farmer" Problema : Modelarea unui sistem ecologic cu două specii concurente Instrumente de grafică pe computer Problema Trasarea unei funcții Problema Suprafețele de construcție în spațiul tridimensional Anexa Plus Descrierea informală a elementelor de bază ale limbajului de programare BASIC COMPUTER Apple II (Applesoft II BASIC) Index DRAGA CITITORULE! Vă rugăm să trimiteți comentariile dumneavoastră despre conținutul cărții, designul acesteia, calitatea traducerii și altele la adresa: , Moscova, I- , GSP, st Rizhsky per , , editura Mir Educational ^ alocaţie Frank Wattenberg SOFTWARE PC Apple Cap editat de prof Yu I Topcheev Adjunct cap editat de E N Badikov Editor științific principal V S Sobolev Editor științific junior M N Stasyuk Artistul N I Vasilevskaya Redactor de artă N M Ivanov Redactor tehnic E S Potapenkova Corector V I Kiseleva IV Xr Predat setului / / Semnat pentru publicare Format X - v Carte de hârtie și revistă Tipărirea este înaltă, tipărirea este literară Volum , lucrare "l Conv cuptor l Conv kr -ott Uch -ed l Ed Nr / Tiraj de exemplare Comanda nr Pret rub k EDITURA "MIR" , GSP, Moscova, I- , prima bandă Riga, Dactilografiat și matriceat în Ordinul Revoluției din Octombrie și Ordinul Steagul Roșu al Muncii al MPO "Prima Tipografie Exemplară" numită după A A Zhdanov Soyuzpoligrafprom în cadrul Comitetului de Stat al URSS pentru Editură, Tipografie și Comerț de Carte , Moscova, Valovaya, Tipărită în Tipografia nr din Leningrad, întreprinderea principală a Ordinului Bannerului Roșu al Muncii a Asociației din Leningrad "Cartea tehnică" numită după Evgenia Sokolova, Soyuzpolygraphprom sub Comitetul de Stat al URSS pentru edituri, tipărituri și comerț cu cărți , Leningrad, L- , prospect Izmailovsky, În , editura Mir a publicat următoarele cărți: Schneider A Limbajul de asamblare pentru computerul personal al firmei INM: Per din engleză - M : Mir, coli: ill ; p k" Un ghid de programare în limbaj de asamblare pentru unul dintre cele mai comune computere personale - IBM PC Accentul se pune pe scrierea, depanarea și executarea programelor Completitudinea prezentării și numeroasele exemple nu numai că facilitează procesul de învățare, dar vă permit și să stăpâniți în mod independent programarea în limbaj de asamblare pentru PC-ul IBM și alte PC-uri compatibile cu acesta Pentru cititorii care nu sunt programatori profesioniști, dar care se ocupă de calculatoare personale, precum și studenții universităților relevante Isis X Programare pentru microcalculatoare: Per; din japoneză - M : Mir, file: ill , p k Cartea este al șaselea volum dintr-o serie de volume despre microelectronică, scrisă de mari experți japonezi, a cărei traducere a fost pregătită de editura Mir Este dedicat software-ului de microcalculatoare, creat în principal pe baza microprocesorului pe biți Include probleme generale de software (sistem de instrucțiuni, programare în limbaj de asamblare), programare de sistem și programare în limbaje de nivel înalt Descrie mijloacele de programare, depanare și furnizare de intrare - ieșire Pentru specialiștii din domeniul tehnologiei computerelor și informaticii, precum și studenților universităților relevante ' 